EVEN MORE errors caught by strict
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 03:02:16 +0000 (03:02 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 03:02:16 +0000 (03:02 +0000)
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

index 1723752..ff1689e 100755 (executable)
@@ -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);