Fix bug in generation of nested table-arrays

diff --git a/lib/TOML/Tiny/Writer.pm b/lib/TOML/Tiny/Writer.pm
index f9fb9c9e613224514b901c82ba207659b0cacff2..7c3067bde2a32a13ff623670165baed81f328877 100644 (file)
--- a/lib/TOML/Tiny/Writer.pm
+++ b/lib/TOML/Tiny/Writer.pm
@@ -68,18 +68,7 @@ sub to_toml {
 
           for (@table_array) {
             push @buff, '', '[[' . join('.', map{ to_toml_key($_) } @KEYS) . ']]';
-
-            for my $k (sort keys %$_) {
-              my $key = to_toml_key($k);
-              my $val = to_toml($_->{$k}, %param);
-
-              unless ($val) {
-                $val = '{}' if ref $_->{$k} eq 'HASH';
-                $val = '[]' if ref $_->{$k} eq 'ARRAY';
-              }
-
-              push @buff, "$key=$val";
-            }
+            push @buff, to_toml($_);
           }
 
           pop @KEYS;