From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 2 Aug 2020 21:40:18 +0000 (+0100)
Subject: Tokenizer: Fix handling of quoted keys
X-Git-Tag: nailing-cargo/1.0.0~62
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=3d08eb9053e905f2656f6d02dde6a588a4562c76;p=nailing-cargo.git

Tokenizer: Fix handling of quoted keys

We can't just strip the quotes!  We may need to interpet \-escapes.
We can do this by calling tokenize_string.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/TOML-Tiny/lib/TOML/Tiny/Tokenizer.pm b/TOML-Tiny/lib/TOML/Tiny/Tokenizer.pm
index b9b3ee4..0e9eb45 100644
--- a/TOML-Tiny/lib/TOML/Tiny/Tokenizer.pm
+++ b/TOML-Tiny/lib/TOML/Tiny/Tokenizer.pm
@@ -164,8 +164,7 @@ sub tokenize_key {
   my @keys = $toml =~ /($SimpleKey)\.?/g;
 
   for (@keys) {
-    s/^["']//;
-    s/["']$//;
+    $_ = $self->tokenize_string($_) if m/^['"]/;
   }
 
   return \@keys;