projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
use JSON as the ForkCall serialiser
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 5bf2470dbf8526282902c7592eab9234654f4ade..1207492dbb0ec77209edb8816b4d574b95f8177a 100644
(file)
--- 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;