From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2020 16:56:51 +0000 (+0100)
Subject: nailing-cargo: Print every path change, with many -v
X-Git-Tag: nailing-cargo/1.0.0~75
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=12e4b18bafaf323dc6ee1be55e3ff507c88cc040;p=nailing-cargo.git

nailing-cargo: Print every path change, with many -v

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

diff --git a/nailing-cargo b/nailing-cargo
index 840eba3..2517573 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -447,6 +447,7 @@ sub calculate () {
 	my $info = $deps->{$p};
 	next unless defined $info;
 	$deps->{$p} = $info = { } unless ref $info;
+	my $oldpath = $info->{path};
 	delete $info->{version};
 	my $newpath = $worksphere.'/'.$packagemap{$p}[0];
 	if ($cargo_lock_update and defined $oot_dir and
@@ -456,6 +457,9 @@ sub calculate () {
 	    // die "$self: cannot resolve $oot_absdir/$subdir: $!";
 	  $newpath = $oot_subdir_realpath.$';
 	}
+	print STDERR "in $mf set $p path=$newpath (was ".
+	  ($oldpath // '<unset>').")\n"
+	  if $verbose >= 4;
 	$info->{path} = $newpath;
       }
     }