X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=e00dbd9e47a268b40f694ad0f6276c1c8f51b40c;hb=775fd16897916dccc374098ba6130b0f8858b636;hp=6b6d778dbeb62bae791722688f5728d17018df99;hpb=2b44cbaa7a18bf641aec3439384dd1fb10b99752;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index 6b6d778d..e00dbd9e 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -175,7 +175,7 @@ sub search
 {
 	my $from = shift;
 	my $to = shift;
-	my @date = $fp->unixtoj(shift);
+	my $date = $fp->unixtoj(shift);
 	my $pattern = shift;
 	my $search;
 	my @out;
@@ -199,7 +199,7 @@ sub search
 	
 	$fp->close;					# close any open files
 	
-	my $fh = $fp->open(@date); 
+	my $fh = $fp->open($date); 
 	for ($count = 0; $count < $to; ) {
 		my @in = ();
 		if ($fh) {
@@ -243,8 +243,8 @@ sub print_item
 #
 sub readfile
 {
-	my @date = $fp->unixtoj(shift);
-	my $fh = $fp->open(@date); 
+	my $date = $fp->unixtoj(shift);
+	my $fh = $fp->open($date); 
 	my @spots = ();
 	my @in;