projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed one ot two little buglets
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 611df54775060f011de4ee0423c853d7126bc1c7..c03f92af8b18308c1c32d52bd8affeae59024377 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-25,18
+25,17
@@
use Carp;
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
-no strict 'refs';
-
sub dbg
{
my $l = shift;
if ($dbglevel{$l}) {
for (@_) {
s/\n$//og;
sub dbg
{
my $l = shift;
if ($dbglevel{$l}) {
for (@_) {
s/\n$//og;
+ s/\a//og; # beeps
}
}
-
my $str = atime . "@_"
;
-
print "$str\n"
;
- $fp->write
now($str
);
+
print "@_\n" if defined \*STDOUT
;
+
my $t = time
;
+ $fp->write
unix($t, "$t^@_"
);
}
}
}
}
@@
-54,7
+53,7
@@
sub dbgsub
my $entry;
foreach $entry (@_) {
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{
$
entry};
}
}
}
}
@@
-65,7
+64,8
@@
sub dbglist
sub isdbg
{
sub isdbg
{
- return $dbglevel{shift};
+ my $s = shift;
+ return $dbglevel{$s};
}
1;
__END__
}
1;
__END__