X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=362e7d5e5252d7f1502def06db8aa5a2a630bc6c;hb=19f68ea69f734f50b46fba21aab99315d5803e09;hp=7302193a9c3bfb462bfbbc9f4ff23871dd46b2b9;hpb=97315924f561c56cef3b581691409d4217f5c1b5;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 7302193a..362e7d5e 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -15,7 +15,6 @@ 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;