Fix the 'return do{...}' problem on perl 5.10 (RT #85204)