X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=96cc0ec256e6c9429071946518a01eee8c5de552;hb=a9b7071fedfdb2150f3ef3d74e0d626b4f2dc0ea;hp=ecf4c12920e480ead3262efc9885c6cbdc03f9f1;hpb=4d3067793942b3f4518615906dde50db5b76464a;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;