From d1daa87473f824fcae5751e2576c31265bf53544 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 17 Aug 2016 01:08:10 +0100
Subject: [PATCH] fix localdata with correct paths

---
 perl/DXUtil.pm       | 6 ++++--
 perl/create_sysop.pl | 1 +
 perl/update_sysop.pl | 1 +
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b58a4528..93030bfc 100644
--- 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 b85c60b7..6e7db09d 100755
--- 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 e7225c7c..613e91f0 100755
--- 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;
-- 
2.34.1