[perl #130598] [REGRESSION] while statement modifier returns blocks instead of running the code ( say ({ 42 } for ^3) )

[via RT]

# New Ticket Created by  Aleks-Daniel Jakimenko-Aleksejev 
# Please include the string:  [perl #130598]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130598 >


Code:
say ({ 42 } while $++ < 3)

Result (2015.12):
(42 42 42)

Result (2016.02,HEAD):
(-> ;; $_? is raw { #`(Block|72397000) ... } -> ;; $_? is raw { 
#`(Block|72397072) ... } -> ;; $_? is raw { #`(Block|72397144) ... })


If somebody wants to argue that the current behavior is right, then please 
consider this:

Code:
say ({ 42 } for ^3)

Result (2015.12,HEAD):
(42 42 42)



Bisectable points to 
https://github.com/rakudo/rakudo/commit/386905f6f62f9fa3525c887a8a86fa48b22b4b35