[perl #125401] Using take on a listy expression doesn't take each element of that list

[via RT]

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


See the attached test file; for example:

    my @result = gather { take 'foo=bar'.split('=') };

results in an empty array, when it should result in an array with 'foo' and 
'bar' as its contents.

test.p6
Description: Binary data