From 885bc3cf15da32c95eeff4e520d8f8ccc08946fa Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 21 Feb 2017 16:14:46 +0000
Subject: [PATCH] add mojo->master backward compatibility

---
 perl/grepdbg  | 5 +++++
 perl/watchdbg | 3 +++
 2 files changed, 8 insertions(+)

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;
-- 
2.34.1