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

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 462cb673..8708ac4d 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -136,7 +136,7 @@ sub prepare
 
 sub add
 {
-	my $buf = join("\^", @_);
+	my $buf = join('^', @_);
 	$fp->writeunix($_[2], $buf);
 	$totalspots++;
 	if ($_[0] <= 30000) {