Igor Gariev (gariev) wrote in changelog,
Igor Gariev
gariev
changelog

[ljcom] r9790: LJSUP-6905: Resolve 'uninitialized value...

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];

Tags: bml, gariev, ljcom
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments