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

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