Committer: vsukhanov
LJSUP-8573: One error in a recbill processing can stop the whole queue.U trunk/bin/maint/expiring.pl
Modified: trunk/bin/maint/expiring.pl =================================================================== --- trunk/bin/maint/expiring.pl 2011-04-28 09:01:51 UTC (rev 10460) +++ trunk/bin/maint/expiring.pl 2011-04-28 09:39:06 UTC (rev 10461) @@ -89,7 +89,7 @@ my $unlock = sub { LJ::Pay::release_lock($u); return 1; }; my $next = sub { $unlock->() && next ACCOUNT }; - my $die = sub { $unlock->() && $emailerr->($u, $@) && next ACCOUNT }; + my $die = sub { $unlock->() && $emailerr->($u, $@) && die $@ }; my $rec = LJ::Pay::RecBill->load( u => $u ) or $die->();