projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pump up eph dups everytime they re-occur and increase life to 180 secs
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index f8a13407cec649ff03b2b2eea508d98e462cc898..201013a0c1bd034b9e7abcbac159756dd7a8031e 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1916,12
+1916,13
@@
sub in_filter_route
sub eph_dup
{
my $s = shift;
sub eph_dup
{
my $s = shift;
+ my $r;
# chop the end off
$s =~ s/\^H\d\d?\^?\~?$//;
# chop the end off
$s =~ s/\^H\d\d?\^?\~?$//;
- return 1 if exists $eph{$s};
+ $r = 1 if exists $eph{$s}; # pump up the dup if it keeps circulating
$eph{$s} = $main::systime;
$eph{$s} = $main::systime;
- return
undef
;
+ return
$r
;
}
sub eph_del_regex
}
sub eph_del_regex
@@
-1940,7
+1941,7
@@
sub eph_clean
my ($key, $val);
while (($key, $val) = each %eph) {
my ($key, $val);
while (($key, $val) = each %eph) {
- if ($main::systime - $val >
9
0) {
+ if ($main::systime - $val >
18
0) {
delete $eph{$key};
}
}
delete $eph{$key};
}
}