X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FIntMsg.pm;h=6e588b3ef7ddbb86c0165e229d37181c08179253;hb=c9768e5afacacc3dd4004a35aeef2a2e54865177;hp=8065f3024e5c693e04e7b50620a5d136e83c2a00;hpb=586cbb347e7639f5575b48572e75140501a109c0;p=spider.git diff --git a/perl/IntMsg.pm b/perl/IntMsg.pm index 8065f302..6e588b3e 100644 --- a/perl/IntMsg.pm +++ b/perl/IntMsg.pm @@ -37,7 +37,7 @@ sub dequeue for (@lines) { if (defined $_) { s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg; - s/[\x00-\x08\x0a-\x1f\x80-\x9f]/./g; # immutable CSI sequence + control characters + s/[\x00-\x08\x0a-\x19\x1b-\x1f\x80-\x9f]/./g; # immutable CSI sequence + control characters } else { $_ = ''; }