# New Ticket Created by Elizabeth Mattijsen
# Please include the string: [perl #131060]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131060 >
$ 6 'dd <a b c>.grep: { FIRST say "first"; LAST say "last"; NEXT say "next";
ENTER say "enter"; LEAVE say "leave"; 1 }'
enter
leave
enter
leave
enter
leave
("a", "b", "c").Seq
This may have been a problem for a *long* time!
This should probably be fixed during the hyper / race refactor, which will need
to take a look at using grep asynchronously anyway.
