%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
-no strict 'refs';
-
sub dbg
{
my $l = shift;
if ($dbglevel{$l}) {
for (@_) {
s/\n$//og;
+ s/\a//og; # beeps
}
print "@_\n" if defined \*STDOUT;
my $t = time;
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{$entry};
}
}