pre 1.13 release

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index ae431485a1c4e0369e65c87f4cfaa50c15fdaf23..cab54cd80b1f32c1ed46367c7eb609c477cbf358 100644 (file)
--- 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
 {