[perl #127563] repeat while loop not being entered when inside a routine and block

[Larry Wall via RT]

The repeat and loop constructs weren't properly self-sinking at statementlist 
level.

Fixed in 589061eac14f2847e2c4b401d2ff2eb30c62675e

Test in cbbff3ba0f1120fe7dfded0a980f9b73263f0868