[perl #127013] [BUG] 'while' only returns list from routine with explicit return

[Larry Wall via RT]

Fix in 386905f6f62f9fa3525c887a8a86fa48b22b4b35 and 
37e742f0bb6f36f1a9d9a5f947c5c0de15d236c2

Test in b7777a521fa8101f3114c87ec1a295707cb68b5b