X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;fp=perl%2Fconsole.pl;h=205d52f379d37b19cf9cba49093f400a00f3a6ff;hb=517695ec47b0ab768da54c7b0830de9ed0dd4914;hp=ceeaa9459be7fcb6b79951416eead418d40e7166;hpb=c33499b933e4a9e7f594ce656e3f5260946deace;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index ceeaa945..205d52f3 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -243,7 +243,7 @@ sub rec_socket
 	if (defined $msg) {
 		my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
 		
-		$line =~ s/[\x00-\x06\x08\x0a-\x19\x1b-\x1f\x80-\x9f\xf0-\xff]/./g;         # immutable CSI sequence + control characters
+		$line =~ s/[\x00-\x06\x08\x0a-\x19\x1b-\x1f\x80-\x9f]/./g;         # immutable CSI sequence + control characters
 		if ($sort && $sort eq 'D') {
 			$line = " " unless length($line);
 			addtotop($line);