add skeletons for new commands Rt, Ping and T.

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 66652795f49e82a777959ad49ae66a66d0c436a2..ef460a07ec0d036a1923bc3208fd604feb24ef9e 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -122,8 +122,7 @@ sub prepare
        $out[4] =~ s/-\d+$//o;
 
        # remove leading and trailing spaces
-       unpad($out[3]);
-       
+       $out[3] = unpad($out[3]);
        
        # add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
        my @spd = Prefix::cty_data($out[1]);