Forbid lines starting with tabs in block mode

perlpunk · Dec 25, 2021 · 9081f88 · 9081f88
1 parent 158afb6
commit 9081f88
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 1 deletion.
diff --git a/lib/YAML/PP/Lexer.pm b/lib/YAML/PP/Lexer.pm
@@ -205,7 +205,7 @@ sub fetch_next_tokens {
     if (not $spaces and $$yaml =~ s/\A(---|\.\.\.)(?=$RE_WS|\z)//) {
         $self->push_tokens([ $TOKEN_NAMES{ $1 } => $1, $self->line ]);
     }
-    elsif ($$yaml =~ m/\A[ \t]+(#.*)?\z/) {
+    elsif ($self->flowcontext and $$yaml =~ m/\A[ \t]+(#.*)?\z/) {
         $self->push_tokens([ EOL => join('', @$next_line), $self->line ]);
         $self->set_next_line(undef);
         return $next;
@@ -559,6 +559,9 @@ sub fetch_block {
         }
         if ((length $spaces) < $current_indent) {
             if (length $content) {
+                if ($content =~ m/\A\t/) {
+                    $self->exception("Invalid block scalar");
+                }
                 last;
             }
             else {

diff --git a/t/invalid/i036/=== b/t/invalid/i036/===
@@ -0,0 +1 @@
+Tabs in various contexts
diff --git a/t/invalid/i036/in.yaml b/t/invalid/i036/in.yaml
@@ -0,0 +1,3 @@
+foo: |
+	
+bar: 1
diff --git a/t/invalid/i036/test.event b/t/invalid/i036/test.event
@@ -0,0 +1,4 @@
++STR
++DOC
++MAP
+=VAL :foo