X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=cab54cd80b1f32c1ed46367c7eb609c477cbf358;hb=4c0591c17b89dbb049ba119d3f3ea15c5b56128c;hp=ae431485a1c4e0369e65c87f4cfaa50c15fdaf23;hpb=bd23bedbdb72ae107893f94c7eabcfe18867fb41;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index ae431485..cab54cd8 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -17,9 +17,9 @@ use Carp;
 use strict;
 use vars qw($db  %prefix_loc %pre);
 
-$db;     # the DB_File handle
-%prefix_loc;   # the meat of the info
-%pre;       # the prefix list
+$db = undef;     # the DB_File handle
+%prefix_loc = ();   # the meat of the info
+%pre = ();       # the prefix list
 
 sub load
 {