projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix allowmultiple for real user with ssid
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 691c410122c99615e5043f0059ec0934c8349d81..b0b723ce00f161b0464a7929507eb853ca6da513 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-87,7
+87,7
@@
my $_isdbg; # current dbg level we are processing
sub dbg($)
{
sub dbg($)
{
-
return unless $fp;
+
#
return unless $fp;
my $t = time;
for (@_) {
my $r = $_;
my $t = time;
for (@_) {
my $r = $_;
@@
-103,7
+103,7
@@
sub dbg($)
shift @dbgring while (@dbgring > $dbgringlth);
push @dbgring, $str;
}
shift @dbgring while (@dbgring > $dbgringlth);
push @dbgring, $str;
}
- $fp->writeunix($t, $str) unless
$dbglevel{"nolog$_isdbg"}
;
+ $fp->writeunix($t, $str) unless
!$fp || $dbglevel{"nolog$_isdbg"}
;
}
}
$_isdbg = '';
}
}
$_isdbg = '';