A new restricted dialect of regex is implemented in
28ab83f947b4899a4f8698eee5bc056742f356f1 and
19d84be0066978f616ace6fa9f506e742161a378
Tests in 1becd7c9b456b707a14bfba40d672ec28945f199
Output has changed:
$ perl6-m -e 'my $x = Q[1}; say "pwnd"; #]; "a" ~~ /<$x>/'
pwnd
Cannot find method 'CALL-ME'
in block at -e:1
$ perl6-m --version
This is perl6 version 2015.10-7-gca1cf74 built on MoarVM version 2015.10
Nowadays this no longer says "pwnd", but complains about two terms in a row:
$ perl6 -e 'my $x = Q[1}; say "pwnd"; #]; "a" ~~ /<$x>/'
===SORRY!=== Error while compiling EVAL_0
Two terms in a row
at EVAL_0:1
--> anon regex { ^1};\c[32]⏏say\c[32]"pwnd";\c[32]#}
expecting any of:
infi
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #100232]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org:443/rt3/Ticket/Display.html?id=100232 >
08:19 < moritz> nom: my $x = '1}; say "pwnd"; #'; 'a' ~~ /<$x>/
08:19 <+p6eval> no