X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=grs_test.pl;h=a6fe476ca7b9a68c1e7dc312620d9ad5633eb16b;hp=e6bfbf3edd330fe13ddaca8c8ab60f80c07216c8;hb=a48f5eb3db599938e2077b582ade3e1161837d44;hpb=9a63dcdf4759d7856d96d85e0d2276dcf9949b49

diff --git a/grs_test.pl b/grs_test.pl
index e6bfbf3..a6fe476 100755
--- a/grs_test.pl
+++ b/grs_test.pl
@@ -97,16 +97,19 @@ sub my_fetch_handler {
 }
 
 
-my $handler = Net::Z3950::SimpleServer->new({ 
+my $handler = new Net::Z3950::SimpleServer( 
 		INIT	=>	\&my_init_handler,
 		SEARCH	=>	\&my_search_handler,
-		FETCH	=>	\&my_fetch_handler });
+		FETCH	=>	\&my_fetch_handler );
 
 $handler->launch_server("ztest.pl", @ARGV);
 
 
 ## $Log: grs_test.pl,v $
-## Revision 1.1  2001-03-13 14:19:28  sondberg
+## Revision 1.2  2001-09-11 13:07:07  sondberg
+## Minor changes.
+##
+## Revision 1.1  2001/03/13 14:19:28  sondberg
 ## Added a modified version of ztest.pl called grs_test.pl, which shows how to
 ## implement support of GRS-1 record syntax.
 ##