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 96cc0ec256e6c9429071946518a01eee8c5de552..c03f92af8b18308c1c32d52bd8affeae59024377 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-25,8
+25,6
@@
use Carp;
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
-no strict 'refs';
-
sub dbg
{
my $l = shift;
sub dbg
{
my $l = shift;
@@
-55,7
+53,7
@@
sub dbgsub
my $entry;
foreach $entry (@_) {
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{
$
entry};
}
}
}
}
@@
-66,7
+64,8
@@
sub dbglist
sub isdbg
{
sub isdbg
{
- return $dbglevel{shift};
+ my $s = shift;
+ return $dbglevel{$s};
}
1;
__END__
}
1;
__END__