X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgrepdbg;h=1282d71fb680861baa7d306bb21c9d7a9161d976;hb=66a5726687662b1a4726ac1de972340ac856ef7a;hp=3d1526f8d70b93446548ee9257ce7b0c87349484;hpb=c5a41c1d2673b53c38d649ad90feee12ad1e286d;p=spider.git

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;