From 5245f81a18def445c9efe3c3bfcf38b0f4df1b90 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 30 Mar 2001 22:20:08 +0000
Subject: [PATCH] remove BEEPS !!!

---
 perl/DXDebug.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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^$_"); 
 		}
-- 
2.34.1