X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=37e4c1dcafa7eda37c8de7db38eb7715f08ac22e;hb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;hp=7064dc7f84736a7e8bd1f51880dd0846b06d0b57;hpb=68fa2f8ae34d78464cb196851a7ce09ebef61b1b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7064dc7f..37e4c1dc 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -232,7 +232,8 @@ sub update_pc92_keepalive
 
 sub init
 {
-	do "$main::data/hop_table.pl" if -e "$main::data/hop_table.pl";
+	my $fn = localdata("hop_table.pl");
+	do $fn if -e $fn;
 	confess $@ if $@;
 
 	my $user = DXUser::get($main::mycall);