From: minima Date: Fri, 30 Mar 2001 22:20:08 +0000 (+0000) Subject: remove BEEPS !!! X-Git-Tag: R_1_47~60 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5245f81a18def445c9efe3c3bfcf38b0f4df1b90;p=spider.git remove BEEPS !!! --- diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index 7640a2a1..790b398d 100644 --- a/perl/DXDebug.pm +++ b/perl/DXDebug.pm @@ -57,7 +57,7 @@ sub dbgstore chomp $r; my @l = split /\n/, $r; for (@l) { - s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg; + s/([\x00-\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg; print "$_\n" if defined \*STDOUT; $fp->writeunix($t, "$t^$_"); }