X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=96cc0ec256e6c9429071946518a01eee8c5de552;hb=d22ce72557d2fd2586261cfe40603641cd57f1ea;hp=ecf4c12920e480ead3262efc9885c6cbdc03f9f1;hpb=b060a0a3ee72530aa3f10d453186a662b66d7efe;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index ecf4c129..96cc0ec2 100644
--- 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;