fix: allow only '-[ \t]' to indicate a list

Perl-Toolchain-Gang · Oct 1, 2021 · 11793db · 11793db
1 parent 8a82dbd
commit 11793db
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/YAML/Tiny.pm b/lib/YAML/Tiny.pm
@@ -528,7 +528,7 @@ sub _load_hash {
                 $hash->{$key} = undef;
                 return 1;
             }
-            if ( $lines->[0] =~ /^(\s*)-(?:\s|$)/ ) {
+            if ( $lines->[0] =~ /^(\s*)-(?:[ \t]|$)/ ) {
                 $hash->{$key} = [];
                 $self->_load_array(
                     $hash->{$key}, [ @$indent, length($1) ], $lines