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 b9b3ee414a13f7f1575a1bcb7650721803b693e2..0e9eb452629a4be93fd37e3078e31b0a8019505d 100644 (file)
--- 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;