From 51ac0fbcdb55e43d9aee791602cad59ac3522893 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 26 Feb 2007 14:48:52 +0000 Subject: [PATCH] Use safe new $conn->check() instead of old private _check(). --- bin/test-zoom.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/test-zoom.pl b/bin/test-zoom.pl index 9978ce2..bde27f8 100644 --- a/bin/test-zoom.pl +++ b/bin/test-zoom.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: test-zoom.pl,v 1.1 2006-07-19 11:40:26 mike Exp $ +# $Id: test-zoom.pl,v 1.2 2007-02-26 14:48:52 mike Exp $ # # 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 +34,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); -- 1.7.10.4