[open-ils-commits] r8217 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-14 22:02:16 -0500 (Fri, 14 Dec 2007)
New Revision: 8217

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
EVEN MORE errors caught by strict

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 03:01:32 UTC (rev 8216)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 03:02:16 UTC (rev 8217)
@@ -132,7 +132,7 @@
 	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);