X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=362e7d5e5252d7f1502def06db8aa5a2a630bc6c;hb=c3c5abeef9492faf2759af04df966311fab43302;hp=75e34c116a7e7e2f11bb21047637eb37dc01ba63;hpb=c36b11f5bda0555f5ff58e0499c77652b5d0f6ca;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 75e34c11..362e7d5e 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -8,14 +8,13 @@
 
 package Spot;
 
-use FileHandle;
+use IO::File;
 use DXVars;
 use DXDebug;
 use DXUtil;
 use DXLog;
 use Julian;
 use Prefix;
-use Carp;
 
 use strict;
 use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix);
@@ -29,7 +28,7 @@ $dirprefix = "spots";
 sub init
 {
 	mkdir "$dirprefix", 0777 if !-e "$dirprefix";
-	$fp = DXLog::new($dirprefix, "dat", 'd')
+	$fp = DXLog::new($dirprefix, "dat", 'd');
 }
 
 sub prefix
@@ -105,7 +104,7 @@ sub search
 	my $ref;
 	my $i;
 	my $count;
-	my @today = Julian::unixtoj(time);
+	my @today = Julian::unixtoj(time());
 	my @fromdate;
 	my @todate;
 
@@ -140,7 +139,7 @@ sub search
 
 	$fp->close;					# close any open files
 
-	for ($i = 0; $i < $maxdays; ++$i) {	# look thru $maxdays worth of files only
+	for ($i = $count = 0; $i < $maxdays; ++$i) {	# look thru $maxdays worth of files only
 		my @now = Julian::sub(@fromdate, $i); # but you can pick which $maxdays worth
 		last if Julian::cmp(@now, @todate) <= 0;