# New Ticket Created by Alex Jakimenko
# Please include the string: [perl #128181]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=128181 >
Code:
say ^∞ .grep: { last }
Result (2016.01):
()
Result (HEAD):
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 ...)
Coke++ has managed to find (git bisect) commit that caused this problem:
https://github.com/rakudo/rakudo/commit/6d120cab6d0bf55a3c96fd3bd9c2e841e7eb99b0
I don't know which behavior is right. However, take a look at the next example:
Code:
say ^∞ .grep({ last }).elems
Result (2016.01):
(nothing, it hangs!)
In other words, even previous behavior was not “right” in all cases.
