X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=1e74d63dbc2f8a4f141d2ca646da4650cc2dc42d;hb=a645d1b0058cd4a02d88d5657ed915fc6e88b1a7;hp=fd361ebaaa178865211561087c26ae47eb7bf6d2;hpb=b3798e93940ba3cd0ef8a06ea7771ef3f1fba10f;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index fd361eba..1e74d63d 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -73,6 +73,8 @@ sub load
 	eval {$db = tie(%pre, "DB_File", undef, O_RDWR|O_CREAT, 0664, $DB_BTREE);};
 	my $out = "$@($!)" if !$db || $@ ;
 	my $fn = localdata("prefix_data.pl");
+	die "Prefix.pm: cannot find $fn, have you run /spider/perl/create_prefix.pl?" unless -e $fn;
+	
 	eval {do $fn if !$out; };
 	$out .= $@ if $@;
 	$lru = LRU->newbase('Prefix', $lrusize);