nailing-cargo: Can build a thing

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

diff --git a/nailing-cargo b/nailing-cargo
index 0d119a29132eb826150134c19894d04c1b0e049e..bca8177b7720442cf3e4cd0b38d591205a1cd5fe 100755 (executable)
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -198,14 +198,20 @@ sub calculate () {
     foreach my $mf (keys %manifests) {
        my $toml = $manifests{$mf};
        foreach my $k (qw(dependencies build-dependencies dev-dependencies)) {
+print STDERR "CHECKING $mf $k\n";
            my $deps = $toml->{$k};
            next unless $deps;
+use Data::Dumper;
+print STDERR "CHECKING $mf $k GOT ".Dumper($deps);
            foreach my $p (keys %packagemap) {
+print STDERR "CHECKING $mf $k -- $p\n";
                my $info = $deps->{$p};
-               next unless $info;
-               $info = { } unless ref $info;
+               next unless defined $info;
+print STDERR "CHECKING $mf $k -- $p = $info\n";
+               $deps->{$p} = $info = { } unless ref $info;
                delete $info->{version};
                $info->{path} = $worksphere.'/'.$packagemap{$p};
+print STDERR "CHECKING $mf $k -- $p UPDATED ", Dumper($deps);
            }
        }
        my $nailing = "$mf.nailing~";