Merge pull request #40 from ijackson/write

Author: oalders

lib/TOML/Tiny/Writer.pm

@@ -197,18 +197,10 @@ sub to_toml_key {
 
   if ($str =~ /^$BareKey$/) {
     return $str;
-  }
-
-  # Escape control characters
-  $str =~ s/([\p{General_Category=Control}])/'\\u00' . unpack('H2', $1)/eg;
-
-  # Escape unicode characters
-  #$str =~ s/($NonASCII)/'\\u00' . unpack('H2', $1)/eg;
-
-  if ($str =~ /^"/) {
-    return qq{'$str'};
   } else {
-    return qq{"$str"};
+    # Not valid as a "bare key".  Encode it as a "quoted key"
+    # (in TOML terminology), using the "literal string" format.
+    return to_toml_string($str);
   }
 }
 

t/writer.t

@@ -144,6 +144,15 @@ hosts = [
   "omega"
 ]
 
+[cfg."something with a 'single-quote'".nested]
+inner = "forty-one"
+
+[cfg.'something with a "double-quote"'.nested]
+inner = "forty-two"
+
+[cfg."something with a 'single-quote' and a \"double-quote\"".nested]
+inner = "forty-three"
+
 [[products]]
 name = "Hammer"
 sku = 738594937