From 5245f81a18def445c9efe3c3bfcf38b0f4df1b90 Mon Sep 17 00:00:00 2001 From: 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.43.0