nailing-cargo: Try TOML::Tiny

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

diff --git a/nailing-cargo b/nailing-cargo
index ed95576112426e3d6824b2197d8821acfdecb715..45197954cb9e1a2e5765f950417097ae10ee04e4 100755 (executable)
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -40,8 +40,7 @@
 #    subdir
 
 use strict;
-use TOML::Parser;
-use TOML;
+use TOML::Tiny;
 use POSIX;
 use Fcntl qw(LOCK_EX);
 use File::Compare;
@@ -68,11 +67,10 @@ sub read_or_enoent ($) {
 
 sub toml_or_enoent ($$) {
     my ($f,$what) = @_;
-    my $parser = TOML::Parser->new();
     my $toml = read_or_enoent($f) // return;
-    my $v = $parser->parse($toml);
-#    die "$self: parse TOML: $what: $f: $e\n" unless defined $v;
-#    die "$e ?" if length $e;
+    my ($v,$e) = from_toml($toml);
+    die "$self: parse TOML: $what: $f: $e\n" unless defined $v;
+    die "$e ?" if length $e;
     $v;
 }