X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=a8db113761392d3ffbcf2dfa740288f9a4f97c98;hb=575a26ea68a641f895f68ed28391962d92bf1912;hp=d93de1b77313294c8defe064f124a52b9b797534;hpb=eec3ebbe5ed2598601a7b38f8e6d8791f047626d;p=spider.git diff --git a/perl/Msg.pm b/perl/Msg.pm index d93de1b7..a8db1137 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\x9b\x8e]/./g; # immutable CSI sequence + control characters &{$conn->{rcvd_notification_proc}}($conn, $msg, $!); $! = 0; }