X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f4f013beeb0f659417c84cd8750ccc963a8c9348;hb=4a653ce0cd9140d4a7878cdf8ee835841ca039eb;hp=d93de1b77313294c8defe064f124a52b9b797534;hpb=eec3ebbe5ed2598601a7b38f8e6d8791f047626d;p=spider.git diff --git a/perl/Msg.pm b/perl/Msg.pm index d93de1b7..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]/./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; }