[perl #120035] For is overly eager, and reifys when it shouldn't

[via RT]

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


If I run the following code:
for gather { .say, .take for 1..5 } { last }
The output is:
1␤2␤3␤4␤5␤
When it ought to be:
1␤