From a8fc300abcd47a74adc534ef343a58942d1bf696 Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 15 Dec 2007 03:02:16 +0000 Subject: [PATCH] EVEN MORE errors caught by strict git-svn-id: svn://svn.open-ils.org/ILS/trunk@8217 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index 172375249d..ff1689e917 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -132,7 +132,7 @@ sub do_class_search { my @records; while ((my $index = OpenILS::Utils::ZClient::event( \@results )) != 0) { my $ev = $results[$index - 1]->last_event(); - if ($ev == OpenILS::Utils::ZClient::Event::END) { + if ($ev == OpenILS::Utils::ZClient::Event::END()) { my $munged = process_results( $results[$index - 1], ($$args{limit} || 10), ($$args{offset} || 0) ); $$munged{service} = $$args{service}[$index]; $conn->respond($munged); -- 2.43.2