Thank you for the great example of a minimal failure case! And thanks for determining that this has already been fixed :)

I've discovered that the same problem exists for functions called in an if expression as well. Adding the following test to the bottom of your script does the wrong thing in 5.6.1 but the right thing in 5.8.0:

print "if: pre\n";
if (f()) {
    print "if: inside\n";
    my $ifobj = bless ["if"];
}
print "if: post\n";
[download]

Interestingly (to me, anyway), there didn't seem to be a problem with while() clauses:

print "while: pre\n";
while (f()) {
    print "while: inside\n";
    my $wobj = bless ["while"];
    last;
}
print "while: post\n";
[download]

This does the right thing on 5.6.1.

Thanks again!

Alan