projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
get enhanced mode "work" in basic console.pl
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 9084062c0226020bd9c7aea2f32e2354b466ee48..57a8237a45d48561349f45ebba5c30e9d3efb7f6 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-135,6
+135,7
@@
sub dbg
sub dbginit
{
sub dbginit
{
+ my $basename = shift || 'debug';
$callback = shift;
# add sig{__DIE__} handling
$callback = shift;
# add sig{__DIE__} handling
@@
-161,7
+162,7
@@
sub dbginit
}
}
}
}
- $fp = DXLog::new(
'debug'
, 'dat', 'd');
+ $fp = DXLog::new(
$basename
, 'dat', 'd');
dbgclearring();
}
dbgclearring();
}