X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f4f013beeb0f659417c84cd8750ccc963a8c9348;hb=ce732002f6913bef502e168460ea3cc688fa3d8b;hp=a8db113761392d3ffbcf2dfa740288f9a4f97c98;hpb=b08d8e083dd9762d205f68ada2bf56bd0a8acd90;p=spider.git diff --git a/perl/Msg.pm b/perl/Msg.pm index a8db1137..f4f013be 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -238,7 +238,7 @@ FINISH: while (@lines){ $msg = shift @lines; $msg =~ s/\%([2-9A-F][0-9A-F])/chr(hex($1))/eg; - $msg =~ s/[\x00-\x08\x0a-\x1f\x9b\x8e]/./g; # immutable CSI sequence + control characters + $msg =~ s/[\x00-\x08\x0a-\x1f\x80-\x9f]/./g; # immutable CSI sequence + control characters &{$conn->{rcvd_notification_proc}}($conn, $msg, $!); $! = 0; }