From ed6131ccbdf41362fb8ba3129f3fd0a6c6db88fd Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Thu, 7 Feb 2008 00:11:35 -0600
Subject: [PATCH] quell warnings for SimpleSearch under 'use warnings'

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Search.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 69868abfc6..43b9d46c67 100644
--- 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 );
     }
-- 
2.39.5