X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=e7227ab1b2cdff4e313b95266b935756e2d0d5c5;hb=99077d96c91df307092394bf1028212adeec4c37;hp=a2b9eee04efe5d9856f4e9d104721350818e495a;hpb=47383bebd8106d9d38db00eac42a05a233aa609e;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index a2b9eee0..e7227ab1 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -404,7 +404,7 @@ sub dup
 		}
 	}
 	my $otext = $text;
-	$text = Encode::encode("iso-8859-1", $text) if $main::can_encode && Encode::is_utf8($text, 1);
+#	$text = Encode::encode("iso-8859-1", $text) if $main::can_encode && Encode::is_utf8($text, 1);
 	$text =~ s/^\+\w+\s*//;			# remove leading LoTW callsign
 	$text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24;
 	$text =~ s/[\W\x00-\x2F\x7B-\xFF]//g; # tautology, just to make quite sure!