X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=362e7d5e5252d7f1502def06db8aa5a2a630bc6c;hb=c3c5abeef9492faf2759af04df966311fab43302;hp=cdd7393d21803c8f85931cf525e79664bec6eb89;hpb=9da1742219a27b1c02fd57794412088e4d7b3d1d;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index cdd7393d..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