X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=07fd6ab594630c0606a48bae4932f3abf38e4d2d;hb=9c8f43f26a7db08c4ff6ef2213c95c9f509abe36;hp=36989dee124c599160c31866d34232dff7753974;hpb=d235b0d777f1a90c65d5dcf8cd6adaeb9f2b7e99;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 36989dee..07fd6ab5 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -488,7 +488,7 @@ sub setup_start
 	}
 
 	# open the debug file, set various FHs to be unbuffered
-	dbginit($broadcast_debug ? \&DXCommandmode::broadcast_debug : undef);
+	dbginit(undef, $broadcast_debug ? \&DXCommandmode::broadcast_debug : undef);
 	foreach (@debug) {
 		dbgadd($_);
 	}