From: Dirk Koopman Date: Tue, 21 Feb 2017 16:14:46 +0000 (+0000) Subject: add mojo->master backward compatibility X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=885bc3cf15da32c95eeff4e520d8f8ccc08946fa;p=spider.git add mojo->master backward compatibility --- diff --git a/perl/grepdbg b/perl/grepdbg index 3d1526f8..1282d71f 100755 --- a/perl/grepdbg +++ b/perl/grepdbg @@ -18,6 +18,9 @@ # require 5.004; +package main; + +use vars qw($data); # search local then perl directories BEGIN { @@ -29,6 +32,8 @@ BEGIN { unshift @INC, "$root/local"; } +$data = "$root/data"; + use DXVars; use DXUtil; use DXLog; diff --git a/perl/watchdbg b/perl/watchdbg index 348ac8fe..84a74c8f 100755 --- a/perl/watchdbg +++ b/perl/watchdbg @@ -11,6 +11,7 @@ # require 5.004; +package main; # search local then perl directories BEGIN { @@ -22,6 +23,8 @@ BEGIN { unshift @INC, "$root/local"; } +$data = "$root/data"; + use IO::File; use DXVars; use DXUtil;