return, not next, from eval BLOCK
authorDan Scott <dscott@laurentian.ca>
Fri, 21 Jun 2013 03:39:21 +0000 (23:39 -0400)
committerBill Erickson <berick@esilibrary.com>
Fri, 21 Jun 2013 12:59:02 +0000 (08:59 -0400)
commit174c7db5bb5be07b19d564412fc5651405ba5b1c
tree774a37daf60ef4780ae53448b69741d8e091ed1d
parentadba9bf5b841e3b38cb78002db94b341fa9ce78b
return, not next, from eval BLOCK

Per perldoc eval, exiting an eval BLOCK is not allowed. And it generates
warnings - 37,000 of them in one day - on a system on which the fine
generator runs every 15 minutes. Simply returning from the block
achieves the same goal without generating scads of warnings.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm