X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcluster.pl;h=4c65e86858acb7c7711152562579c06d0384276f;hp=d20b539c5b01447d5edc8d796752c13685e35904;hb=50bafbfa099ff0847beeb30e41bc62a361ef0536;hpb=ce0803e2110199eca1ad15cd6f66abde58cb949b

diff --git a/perl/cluster.pl b/perl/cluster.pl
index d20b539c..4c65e868 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -18,10 +18,15 @@ BEGIN {
 	
 	unshift @INC, "$root/perl";	# this IS the right way round!
 	unshift @INC, "$root/local";
+
+#	require Exporter;
+#	$Exporter::Verbose = 1;
 }
 
 use Msg;
 use DXVars;
+use DXDebug;
+use DXLog;
 use DXUtil;
 use DXChannel;
 use DXUser;
@@ -30,7 +35,6 @@ use DXCommandmode;
 use DXProt;
 use DXMsg;
 use DXCluster;
-use DXDebug;
 use DXCron;
 use DXConnect;
 use Prefix;
@@ -167,7 +171,6 @@ sub process_inqueue
 #############################################################
 
 # open the debug file, set various FHs to be unbuffered
-dbginit($debugfn);
 foreach (@debug) {
 	dbgadd($_);
 }