fixed sh/c/n

[spider.git] / perl / DXDebug.pm

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index ecf4c12920e480ead3262efc9885c6cbdc03f9f1..96cc0ec256e6c9429071946518a01eee8c5de552 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -33,6 +33,7 @@ sub dbg
        if ($dbglevel{$l}) {
                for (@_) {
                        s/\n$//og;
+                       s/\a//og;   # beeps
                }
                print "@_\n" if defined \*STDOUT;
                my $t = time;