move ganerated stuff to local_data

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7064dc7f84736a7e8bd1f51880dd0846b06d0b57..37e4c1dcafa7eda37c8de7db38eb7715f08ac22e 100644 (file)
--- 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);