X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=cab54cd80b1f32c1ed46367c7eb609c477cbf358;hb=cce161221036760959ff1d0b7628a55942bf558a;hp=ae431485a1c4e0369e65c87f4cfaa50c15fdaf23;hpb=69c8aeb338cc485103e289fbab7ec4e7e056ed20;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
 {