You can't redo a block that returns, but you can redo a block that /contains/ a returning block.

OK:

my $foo = 1;
BLOCK: { last if $foo > 10; eval { print $foo++, "\n"; }; redo; }
[download]

NOT OK

my $foo = 1;
eval { last if $foo > 10; print $foo++, "\n"; redo; }
[download]