our $recurse = 1;
our $unit = 86400;
our $slop;
+our $debug;
our @intervals;
sub badusage ($) {
$_->{A} = ($newest_t - $_->{T}) / $unit foreach @files;
$slop /= $unit;
-# print DEBUG Dumper(\@files, \@intervals);
+ print DEBUG Dumper(\@files, \@intervals) if $debug >= 2;
}
sub flag ($) {
while (m/^-./) {
if (s/^-n/-/) { $rm=0; }
elsif (s/-r/-/) { $recurse=1; }
- elsif (s/-D/-/) { open DEBUG, ">&STDERR" or die $!; DEBUG->autoflush(1) }
+ elsif (s/-D/-/) { $debug++; }
elsif (s/-u(\d+)$//) { $unit=$1; }
elsif (s/-s(\d+)$//) { $slop=$1; }
else { badusage "unknown short option $_" }
badusage "too few arguments" unless @ARGV;
+if ($debug) {
+ open DEBUG, ">&STDERR" or die $!;
+ DEBUG->autoflush(1);
+}
+
$slop //= $unit * 0.1;
foreach (@ARGV) {