… | … | ||
---|---|---|---|
56 | 56 | ||
57 | read_blockuri; | 57 | read_blockuri; |
58 | read_blockref; | 58 | read_blockref; |
59 | 59 | ||
60 | use Tie::Cache; | 60 | use Tie::Cache; |
61 | tie %whois_cache, Tie::Cache::, $::MAX_CONNECTS * 1.5; | 61 | tie %whois_cache, Tie::Cache::, 32; |
62 | 62 | ||
63 | sub access_check { | 63 | sub access_check { |
64 | my $self = shift; | 64 | my $self = shift; |
65 | 65 | ||
66 | my $ref = $self->{h}{referer}; | 66 | my $ref = $self->{h}{referer}; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |