It shouldn't error this way

At least that's how it was originally.

Author: JJ

doc/Language/pod.pod6

@@ -274,10 +274,10 @@ Code blocks can also be explicitly defined by enclosing them in C<=begin code>
 and C<=end code>
 
 =begin code :lang<pod6>
-=begin code
-my $name = 'John Doe';
-say $name;
-=end code
+    =begin code
+    my $name = 'John Doe';
+    say $name;
+    =end code
 =end code
 
 =head2 I/O blocks