X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=17e961769eb9e6bce882e79c01f8caffc9e0db78;hb=517695ec47b0ab768da54c7b0830de9ed0dd4914;hp=8db35b9df78c29c1721d549084ac77f8e5b2a458;hpb=c33499b933e4a9e7f594ce656e3f5260946deace;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 8db35b9d..17e96176 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -518,7 +518,7 @@ sub store
 			my $line;
 			$ref->{size} = 0;
 			foreach $line (@{$lines}) {
-				$line =~ s/[\x00-\x08\x0a-\x1f\xf0-\xff]/./g;
+				$line =~ s/[\x00-\x08\x0a-\x1f\x80-\x9f]/./g;
 				$ref->{size} += (length $line) + 1;
 				print $fh "$line\n";
 			}