From: minima <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^$_"); 
 		}