X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=test.pl;h=a7184be67bc278ebcd486c1bbeace3403fddaa73;hp=b0a03de6731298deac96075f61ac31476eed32fa;hb=657bd74a4d71b1125a3bff1fe99631591ddf1873;hpb=d0c7c7bc5cd6ad4f13e62dc1f5c1b6dfb19e04ae

diff --git a/test.pl b/test.pl
index b0a03de..a7184be 100644
--- a/test.pl
+++ b/test.pl
@@ -82,11 +82,11 @@ sub my_close_handler {
 if (!defined($pid = fork() )) {
 	die "Cannot fork: $!\n";
 } elsif ($pid) {                                        ## Parent launches server
-	my $handler = Net::Z3950::SimpleServer->new({
+	my $handler = Net::Z3950::SimpleServer->new(
 		INIT		=>	\&my_init_handler,
 		CLOSE		=>	\&my_close_handler,
 		SEARCH		=>      \&my_search_handler,
-		FETCH		=>	\&my_fetch_handler	});
+		FETCH		=>	\&my_fetch_handler);
 
 	$handler->launch_server("test.pl", "-1", @ARGV);
 } else {						## Child starts the client