projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed compilation probs
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 75e34c116a7e7e2f11bb21047637eb37dc01ba63..cdd7393d21803c8f85931cf525e79664bec6eb89 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-8,7
+8,7
@@
package Spot;
package Spot;
-use
FileHand
le;
+use
IO::Fi
le;
use DXVars;
use DXDebug;
use DXUtil;
use DXVars;
use DXDebug;
use DXUtil;
@@
-105,7
+105,7
@@
sub search
my $ref;
my $i;
my $count;
my $ref;
my $i;
my $count;
- my @today = Julian::unixtoj(time);
+ my @today = Julian::unixtoj(time
()
);
my @fromdate;
my @todate;
my @fromdate;
my @todate;
@@
-140,7
+140,7
@@
sub search
$fp->close; # close any open files
$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;
my @now = Julian::sub(@fromdate, $i); # but you can pick which $maxdays worth
last if Julian::cmp(@now, @todate) <= 0;