Committer: gariev
LJSUP-6905: Resolve 'uninitialized value' in Memcached perl module.Removing 'Argument "LwDR7TUuHk7CKx0" isn't numeric in int...' warning
U trunk/ssldocs/pay/cc.bml
Modified: trunk/ssldocs/pay/cc.bml =================================================================== --- trunk/ssldocs/pay/cc.bml 2010-12-01 05:01:48 UTC (rev 9774) +++ trunk/ssldocs/pay/cc.bml 2010-12-01 10:32:21 UTC (rev 9775) @@ -151,7 +151,7 @@ my @memkeys = ([$cartobj->{payid}, "cctry_payid:$cartobj->{payid}"]); push @memkeys, [$cartobj->{userid}, "cctry_uid:$cartobj->{userid}"] if $cartobj->{userid}; - push @memkeys, [$uniq, "cctry_uniq:$uniq"] + push @memkeys, "cctry_uniq:$uniq" if $uniq; # now check rate keys for all of the items, but don't note duplicate @@ -166,7 +166,7 @@ } elsif (my $email = $it->{rcptemail}) { next if $emails{$email}; $emails{$email}++; - push @memkeys, [$email, "cctry_email:$email"]; + push @memkeys, "cctry_email:$email"; } }