X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=d7cdc19c12a79b8faf185f74f6e44076b282343b;hb=cc91428ca79b3cdfdc7733505384f5983ad6c7fa;hp=d68e724d436214b64825b2052164122e22628397;hpb=324bd80ed4aef7e2636f5a03288788ce11ab2663;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d68e724d..d7cdc19c 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -155,7 +155,7 @@ sub search
 	$eval = qq(
 			   my \$c;
 			   my \$ref;
-			   for (\$c = \$	#in; \$c >= 0; \$c--) {
+			   for (\$c = \$#in; \$c >= 0; \$c--) {
 					\$ref = \$in[\$c];
 					if ($search) {
 						\$count++;