From d0c7c7bc5cd6ad4f13e62dc1f5c1b6dfb19e04ae Mon Sep 17 00:00:00 2001
From: "Anders S. Mortensen" <sondberg@indexdata.dk>
Date: Tue, 11 Sep 2001 13:07:07 +0000
Subject: [PATCH] Minor changes.

---
 grs_test.pl |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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.
 ##
-- 
1.7.10.4