[perl #61596] Rakudo does the Wrong Thing when defining subs via eval string

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #61596]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61596 >


<masak> rakudo: eval "sub x { say q<O, NI HAO> }"; say "before call"; x
<p6eval> rakudo 34238: OUTPUT[O, NI HAO␤before call␤Could not find
non-existent sub x [...]
* masak submits rakudobug

To summarize:

* "O, NI HAO" should not be output during the eval call.
* The sub x shouldn't be non-existent.
* An memory error of type "corrupted double-linked list" should not
occur. (The error is not shown above, but occurs when `perl6` is run
from the command line.)