quell warnings for SimpleSearch under 'use warnings'

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Search.pm b/C4/Search.pm
index 69868ab..43b9d46 100644 (file)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -255,7 +255,7 @@ sub SimpleSearch {
                 return ( $error, undef );
             }
         }
-        my $hits;
+        my $hits = 0;
         my $ev;
         while ( ( my $i = ZOOM::event( \@zconns ) ) != 0 ) {
             $ev = $zconns[ $i - 1 ]->last_event();
@@ -268,6 +268,7 @@ sub SimpleSearch {
                     push @results, $record;
                 }
             }
+            $hits = 0;
         }
         return ( undef, \@results );
     }