foreach my $p (keys %packagemap) {
my $info = $deps->{$p};
next unless defined $info;
+ next if $packagemap{$p}[1] eq $mf_org_subdir;
$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
- $newpath =~ m{^\Q$src_absdir\E(?=$|/)}) {
- our $oot_subdir_realpath;
- $oot_subdir_realpath //= Cwd::realpath "$oot_absdir/$subdir"
- // 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;