X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;h=7f19ccfd1263c007fb2157d44ec55a1dd4d2c9a5;hb=f0910da57e166acb22e83de4e4b771d175074c80;hp=ee9679c648c776fa763d159387e8c1827279dce9;hpb=ece0b001419b8e755540eaff4ce3a558fd7d939f;p=spider.git

diff --git a/perl/WCY.pm b/perl/WCY.pm
index ee9679c6..7f19ccfd 100644
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -150,12 +150,13 @@ 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;
 	my $eval;
 	my $count;
+	my $i;
 	
 	$search = 1;
 	$eval = qq(
@@ -173,9 +174,8 @@ sub search
 			  );
 	
 	$fp->close;					# close any open files
-	
-	my $fh = $fp->open(@date); 
-	for ($count = 0; $count < $to; ) {
+	my $fh = $fp->open($date); 
+	for ($i = $count = 0; $count < $to; $i++ ) {
 		my @in = ();
 		if ($fh) {
 			while (<$fh>) {
@@ -218,8 +218,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;