X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXDebug.pm;fp=perl%2FDXDebug.pm;h=1207492dbb0ec77209edb8816b4d574b95f8177a;hb=5e50c4fa111795e0cea2325d68bf1d2a9ce14f18;hp=5bf2470dbf8526282902c7592eab9234654f4ade;hpb=9d24fd4aa2eb1bb4e9d86ada66e46f77962a5fa7;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;