Make =code follow spec better

rakudo · Feb 19, 2014 · 91334ce · 91334ce
1 parent 1217268
commit 91334ce
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -780,7 +780,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         $<spaces> = [ \h* ]
         '=comment' {}
         :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES');
-        <pod_configuration($<spaces>)> [\r\n|\s]
+        <pod_configuration($<spaces>)> [\h*\n|\h+]
         $<pod_content> = [ \h* <!before '=' \w> \N+ \n ]*
     }
 
@@ -799,8 +799,8 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         '=code' {}
         :my $*POD_ALLOW_FCODES  := 0;
         :my $*POD_IN_CODE_BLOCK := 1;
-        <pod_configuration($<spaces>)> <pod_newline>
-        [ <pod_string> <pod_newline> ]+
+        <pod_configuration($<spaces>)> [\h*\n|\h+]
+        [ <!before \h* '=' \w> <pod_string> <pod_newline> ]+
     }
 
     token pod_newline {