X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f4f013beeb0f659417c84cd8750ccc963a8c9348;hb=4a653ce0cd9140d4a7878cdf8ee835841ca039eb;hp=a8db113761392d3ffbcf2dfa740288f9a4f97c98;hpb=c912e948dc2207f446c7c8930ab179b4bc3b98d7;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; }