| … | … | ||
|---|---|---|---|
| 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 |