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 840eba331cfd8bbc6d6c5cc4489e717150d0f920..251757343659353ef87b13a47a9bc7be36689521 100755 (executable)
--- 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;
       }
     }