diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp index 893b1baab2e..1d530677d8c 100644 --- a/src/Perl6/Grammar.nqp +++ b/src/Perl6/Grammar.nqp @@ -607,7 +607,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD { || ($.to - $.from) <= $*VMARGIN }> $ = [ - \h* + \h* [ | $ ] ] + } @@ -823,7 +823,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD { '=for' \h+ 'comment' {} :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES'); )> - $ = [ \h* \N+ \n ]+ + $ = [ \h* \N+ [ \n | $ ] ]* } token pod_block:sym { @@ -868,7 +868,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD { '=comment' {} :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES'); [\h*\n|\h+] - $ = [ \h* \N+ \n ]* + $ = [ \h* \N+ [ \n | $ ] ]* } token pod_block:sym { @@ -890,7 +890,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD { [ ]* } - token pod_line { **1 } + token pod_line { **1 [ | $ ] } token pod_newline { \h* \n