X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=e918c0c6c711b7a09522ae023bf75bb043552d2c;hb=5b3c2c5e342c23fbab96b7573c5963344617878f;hp=462cb673f7fd02db3b00e6bb94a4e4a4ba9df3df;hpb=4c8be388424d403a33d72798b02e49c4f1bfd0ef;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 462cb673..e918c0c6 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -122,7 +122,7 @@ sub prepare
 	$out[4] =~ s/-\d+$//o;
 
 	# remove leading and trailing spaces
-	$_[3] = unpad($_[3]);
+	unpad($out[3]);
 	
 	
 	# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
@@ -136,7 +136,7 @@ sub prepare
 
 sub add
 {
-	my $buf = join("\^", @_);
+	my $buf = join('^', @_);
 	$fp->writeunix($_[2], $buf);
 	$totalspots++;
 	if ($_[0] <= 30000) {