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

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