sub bar { if (@_) { return my $x = do { my $dummy; 1; }; } return 0; }