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

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 7302193a..d663c9bd 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -29,7 +29,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 +105,7 @@ sub search
 	my $ref;
 	my $i;
 	my $count;
-	my @today = Julian::unixtoj(time);
+	my @today = Julian::unixtoj(time());
 	my @fromdate;
 	my @todate;