Merge mojo build 413 DXProthandle + DXUtil

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b7344702ddf1ce174b31db920fedfc225cb97fd1..8c353b90e225fd28a8796162dbf972b0ccc4ef07 100644 (file)
--- 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;