# dump if too old
return 2 if $d < $main::systime - $dupage;
- $d /= 60; # to the nearest minute
# chomp $text;
# $text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "$d|$sfi|$k|$a|$r";
return 1 if exists $dup{$dupkey};
- $dup{$dupkey} = $d * 60; # in seconds (to the nearest minute)
+ $dup{$dupkey} = $d; # in seconds (to the nearest minute)
return 0;
}
sub listdups
{
+ my $regex = shift;
+ $regex = '.*' unless $regex;
+ $regex =~ s/[\$\@\%]//g;
my @out;
- for (sort { $dup{$a} <=> $dup{$b} } keys %dup) {
+ for (sort { $dup{$a} <=> $dup{$b} } grep { m{$regex}i } keys %dup) {
my $val = $dup{$_};
- push @out, "$_ = $val (" . cldatetime($val) . ")";
+ push @out, "$_ = " . cldatetime($val);
}
return @out;
}