fixed geomag errors introduced last time

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d68e724d436214b64825b2052164122e22628397..d7cdc19c12a79b8faf185f74f6e44076b282343b 100644 (file)
--- 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++;