remove redundant unprintable to %xx s///g

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 779139fc3a5c5b20b8869103e0271d2c82f18b18..717dabbe0618500b197fdee51135206876d771fd 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -443,7 +443,7 @@ sub decode_input
        
        # the above regexp must work
        unless (defined $sort && defined $call && defined $line) {
-               $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
+#              $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
                dbg('err', "DUFF Line on $chcall: $data");
                return ();
        }