# 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
