fix localdata with correct paths

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b58a4528d5649bc60df8dbcd23e892e58bde30b5..93030bfc88e785987c49b7f9e85d334ffc6ba43a 100644 (file)
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -484,8 +484,10 @@ sub localdata
        my $tfn;
        
        if (-e "$main::local_data") {
-               $tfn = "main::local_data/$ifn";
-               if (-e $tfn && -M $tfn < -M $ofn) {
+               $tfn = "$main::local_data/$ifn";
+               if (-e $tfn && -e $ofn) {
+                       $ofn = $tfn if -M $tfn < -M $ofn;
+               } elsif (-e $tfn) {
                        $ofn = $tfn;
                }
        }

diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl
index b85c60b770677b0f7cebadae00d1a2c017182b5b..6e7db09d3144ae23d6f7f301bc687dc30ea8e392 100755 (executable)
--- a/perl/create_sysop.pl
+++ b/perl/create_sysop.pl
@@ -19,6 +19,7 @@ BEGIN {
        unshift @INC, "$root/local";
 }
 
+use DXVars;
 use SysVar;
 use DXUser;
 use DXUtil;

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index e7225c7c3c65ba49574426e2d58859a9dc863c17..613e91f0bc35f9602846463d0a14624c648e8a4b 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -22,6 +22,7 @@ BEGIN {
        unshift @INC, "$root/local";
 }
 
+use DXVars;
 use SysVar;
 use DXUser;
 use DXUtil;