X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FSpot.pm;fp=perl%2FSpot.pm;h=8c353b90e225fd28a8796162dbf972b0ccc4ef07;hp=b7344702ddf1ce174b31db920fedfc225cb97fd1;hb=5a9cdeef2a8f38736d9b51f96e121c1fe63aeeff;hpb=03a8ba6249b112d16840f8c6f7bf2f5707dee664

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b7344702..8c353b90 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -407,7 +407,7 @@ sub dup
 	if ($cty && $text && length $text <= 4) {
 		unless ($text =~ /^C?Q/ || $text =~ /^[\d\W]+$/) {
 			my @try = Prefix::cty_data($text);
-			$text = "" if $cty == $try[0];
+			$text = "" if @try && $cty == $try[0];
 		}
 	}
 	my $otext = $text;