X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=1207492dbb0ec77209edb8816b4d574b95f8177a;hb=36e0c1ffda9295a4090eab75360f1b59d964ada3;hp=5bf2470dbf8526282902c7592eab9234654f4ade;hpb=a9bc2c5a87691ca5bed6e408c5908695bd65387a;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 5bf2470d..1207492d 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -116,9 +116,11 @@ sub dbgclose
 
 sub dbgdump
 {
+	return unless $fp;
+	
 	my $l = shift;
 	my $m = shift;
-	if ($fp && ($dbglevel{$l} || $l eq 'err')) {
+	if ($dbglevel{$l} || $l eq 'err') {
 		foreach my $l (@_) {
 			for (my $o = 0; $o < length $l; $o += 16) {
 				my $c = substr $l, $o, 16;