From 12e4b18bafaf323dc6ee1be55e3ff507c88cc040 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2020 17:56:51 +0100
Subject: [PATCH] nailing-cargo: Print every path change, with many -v

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 nailing-cargo | 4 ++++
 1 file changed, 4 insertions(+)

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;
       }
     }
-- 
2.30.2