Allow escaped double quotes in map keys

Example: - "a \\"bc": def
ingydotnet · Oct 3, 2023 · f7ab1ef · f7ab1ef
1 parent a3abf03
commit f7ab1ef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/YAML/Loader.pm b/lib/YAML/Loader.pm
@@ -414,7 +414,7 @@ sub _parse_seq {
         }
         elsif (
              $preface =~ /^ (\s*) ((') (?:''|[^'])*? ' \s* \: (?:\ |$).*) $/x or
-             $preface =~ /^ (\s*) ((") (?:\\\\|[^"])*? " \s* \: (?:\ |$).*) $/x or
+             $preface =~ /^ (\s*) ((") (?:\\\\|\\"|[^"])*? " \s* \: (?:\ |$).*) $/x or
              $preface =~ /^ (\s*) (\?.*$)/x or
              $preface =~ /^ (\s*) ([^'"\s:#&!\[\]\{\},*|>].*\:(\ .*|$))/x
            ) {