diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm index 43c86046b66..97e2dc689a4 100644 --- a/src/Perl6/Actions.pm +++ b/src/Perl6/Actions.pm @@ -1734,6 +1734,14 @@ method quote:sym($/) { my $past := Regex::P6Regex::Actions::buildsub($.ast); make create_code_object($past, 'Regex', 0, ''); } +method quote:sym($/) { + my $past := Regex::P6Regex::Actions::buildsub($.ast); + make create_code_object($past, 'Regex', 0, ''); +} +method quote:sym($/) { + my $past := Regex::P6Regex::Actions::buildsub($.ast); + make create_code_object($past, 'Regex', 0, ''); +} method quote_escape:sym<$>($/) { make $.ast; } method quote_escape:sym<{ }>($/) { diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm index 18f00f1e486..5dc35c11f75 100644 --- a/src/Perl6/Grammar.pm +++ b/src/Perl6/Grammar.pm @@ -865,6 +865,15 @@ token quote:sym { 'Q' <.ws> } token quote:sym { 'Q:PIR' <.ws> } token quote:sym { '/' \s* '/' <.panic: "Null regex not allowed"> } token quote:sym { '/''/' } +token quote:sym { >> '/''/' } +token quote:sym { + >> + [ + | '/''/' + | '{''}' + ] +} + token quote_escape:sym<$> { } token quote_escape:sym<{ }> { } diff --git a/t/spectest.data b/t/spectest.data index 1d1721cf4cd..121d2f62b04 100644 --- a/t/spectest.data +++ b/t/spectest.data @@ -237,17 +237,17 @@ S04-statements/until.t # S05-match/non-capturing.t # S05-match/perl.t # S05-match/positions.t -# S05-metachars/line-anchors.t -# S05-metachars/newline.t +S05-metachars/line-anchors.t +S05-metachars/newline.t # S05-metachars/tilde.t # S05-metasyntax/angle-brackets.t S05-metasyntax/changed.t # S05-metasyntax/charset.t # S05-metasyntax/lookaround.t -# S05-metasyntax/null.t +S05-metasyntax/null.t # S05-metasyntax/regex.t # S05-metasyntax/repeat.t -# S05-metasyntax/single-quotes.t +S05-metasyntax/single-quotes.t # S05-metasyntax/unknown.t # S05-modifier/ignorecase.t # S05-modifier/perl5_1.t