X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=0942c69a0c0ed5aeeb66c33f9250744d9cb2adda;hb=517695ec47b0ab768da54c7b0830de9ed0dd4914;hp=6cf35b2bd77e3a398d652ba7d3f2af98f8e77228;hpb=c33499b933e4a9e7f594ce656e3f5260946deace;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 6cf35b2b..0942c69a 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -346,7 +346,7 @@ sub is_callsign
 # check that a PC protocol field is valid text
 sub is_pctext
 {
-	return undef if $_[0] =~ /[\x00-\x08\x0a-\x1f\xf0-\xff]/;
+	return undef if $_[0] =~ /[\x00-\x08\x0a-\x1f\x80-\x9f]/;
 	return $_[0];
 }