[perl #67064] reduce X parse fail

[Daniel Ruoso]

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

<ruoso> rakudo: say [~] [<a b c>] xx 3
<p6eval> rakudo 1831bd: OUTPUT«a b ca b ca b c␤»
<ruoso> rakudo: say [X] [<a b c>] xx 3
<p6eval> rakudo 1831bd: OUTPUT«Statement not terminated properly at line
2, near "[<a b c>] "␤in Main (src/gen_setting.pm:3257)␤»
<ruoso> std: say [X] [<a b c>] xx 3
<p6eval> std 27309: OUTPUT«ok 00:03 38m␤»

[jnthn@jnthn.net via RT]

On Mon Jun 29 13:45:16 2009, druoso wrote:
> <ruoso> rakudo: say [~] [<a b c>] xx 3
> <p6eval> rakudo 1831bd: OUTPUT«a b ca b ca b c␤»
> <ruoso> rakudo: say [X] [<a b c>] xx 3
> <p6eval> rakudo 1831bd: OUTPUT«Statement not terminated properly at line
> 2, near "[<a b c>] "␤in Main (src/gen_setting.pm:3257)␤»
> <ruoso> std: say [X] [<a b c>] xx 3
> <p6eval> std 27309: OUTPUT«ok 00:03 38m␤»
>

I've added in git 1831bd1 the stuff to parse this by making an entry in
the gen_meta_ops list. Seems to work - give it a spin. Also we should
get spectests before closing this - assigning to moritz++.

Thanks,

Jonathan