%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
-no strict 'refs';
-
sub dbg
{
my $l = shift;
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{$entry};
}
}
sub isdbg
{
- return $dbglevel{shift};
+ my $s = shift;
+ return $dbglevel{$s};
}
1;
__END__