diff options
-rw-r--r-- | lib/Multi/IRC.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Multi/IRC.pm b/lib/Multi/IRC.pm index 63acd0a9..e18a8e5d 100644 --- a/lib/Multi/IRC.pm +++ b/lib/Multi/IRC.pm @@ -96,7 +96,7 @@ sub throttle { # garbage collect return ($heap->{throttle} = { - map $_->[$#$_] > time-3600 ? ($_, $heap->{throttle}{$_}) : (), keys %{$heap->{throttle}} + map $heap->{throttle}{$_}[$#{$heap->{throttle}{$_}}] > time-3600 ? ($_, $heap->{throttle}{$_}) : (), keys %{$heap->{throttle}} }) if !$key; $num ||= 1; |