X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Ftest-zoom.pl;h=faa6b70f5d87f2b32b79fad40dc4ec78f927f441;hp=9978ce2869cd2795b4a071849b5f210d954993de;hb=7cfd357a4adad76aa368d2198f3756c83e86a708;hpb=dbd2c2f968cc0ae6bbd43e6ea78ffcf1a7bdbc4b

diff --git a/bin/test-zoom.pl b/bin/test-zoom.pl
index 9978ce2..faa6b70 100644
--- a/bin/test-zoom.pl
+++ b/bin/test-zoom.pl
@@ -1,6 +1,4 @@
-#!/usr/bin/perl -w
-
-# $Id: test-zoom.pl,v 1.1 2006-07-19 11:40:26 mike Exp $
+#!/usr/bin/perl
 #
 # Run the same way as "test-pod.pl".  This is supposed to be an
 # exactly equivalent program but written using the ZOOM-Perl
@@ -34,7 +32,7 @@ while ((my $i = ZOOM::event(\@conn)) != 0) {
     my $ev = $conn->last_event();
     my $evstr = ZOOM::event_str($ev);
     ZOOM::Log::log("pod", "connection ", $i-1, ": event $ev ($evstr)");
-    $conn->_check();		# die if any errors occur
+    $conn->check();		# die if any errors occur
 
     if ($ev == ZOOM::Event::RECV_SEARCH) {
 	$res = completed_search($conn, \%state, $rs{$conn}, $ev);