From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 May 2020 21:56:56 +0000 (+0100)
Subject: nailing-cargo: Flailings with TOML, *sigh*
X-Git-Tag: nailing-cargo/1.0.0~235
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a4e85cd9681021fc66a2b19aa0258abeae5fc3d5;p=nailing-cargo.git

nailing-cargo: Flailings with TOML, *sigh*

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

diff --git a/nailing-cargo b/nailing-cargo
index 92bd8ce..ed95576 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -40,6 +40,7 @@
 #    subdir
 
 use strict;
+use TOML::Parser;
 use TOML;
 use POSIX;
 use Fcntl qw(LOCK_EX);
@@ -67,10 +68,11 @@ 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,$e) = from_toml($toml);
-    die "$self: parse TOML: $what: $f: $e\n" unless defined $v;
-    die "$e ?" if length $e;
+    my $v = $parser->parse($toml);
+#    die "$self: parse TOML: $what: $f: $e\n" unless defined $v;
+#    die "$e ?" if length $e;
     $v;
 }