[perl #64602] [BUG] invalid 'but' produces endless loop

[m...@suse.de (via RT)]

# New Ticket Created by  m...@suse.de 
# Please include the string:  [perl #64602]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64602 >



$ perl6 -e '0 but True'
[hangs]

perl6 -t 1 shows that it does a 'die "The but operator can..."',
but it never dies.

Rakudo version a04f610fb3f6f77429bb7a35ed1613eda8900951

Cheers,
  Michael.

-- 
Michael Schroeder                                   m...@suse.de
SUSE LINUX Products GmbH, GF Markus Rex, HRB 16746 AG Nuernberg
main(_){while(_=~getchar())putchar(~_-1/(~(_|32)/13*2-11)*13);}