Committer: gariev
LJSUP-6905: Resolve 'uninitialized value' in Memcached perl module.Removing 'Argument "LwDR7TUuHk7CKx0" isn't numeric in int...' warning
Bugfix.
U trunk/ssldocs/pay/cc.bml
Modified: trunk/ssldocs/pay/cc.bml =================================================================== --- trunk/ssldocs/pay/cc.bml 2010-12-02 11:07:46 UTC (rev 9789) +++ trunk/ssldocs/pay/cc.bml 2010-12-03 05:42:24 UTC (rev 9790) @@ -176,8 +176,7 @@ my $exceeded = 0; # is the rate exceeded based on one of the time queues? my $sendmail = 0; # was the 10 try threshold passed? eg: send an email foreach my $memkey (@memkeys) { - - my $val = $cctry->{$memkey->[1]} || []; + my $val = $cctry->{ (ref $memkey) ? $memkey->[1] : $memkey } || []; my @try = grep { $_ >= $now - 3600*6 } @$val; my $tries = scalar @try; my $lasttry = $try[-1];