prt-auf: respect aliases when determining the list of orphans

This commit is contained in:
John McQuah 2024-03-16 19:10:28 +00:00
parent 2aea62227c
commit 71597add39

View File

@ -620,6 +620,9 @@ sub list_ports {
map { $not_orphans{$_} = 1 } split(/[ ,]+/, $SOFTDEPS{$port});
}
}
foreach my $al (keys %ALIASES) {
$not_orphans{$al} = 1 if (($not_orphans{$ALIASES{$al}}) and ($not_orphans{$ALIASES{$al}} == 1));
}
@found = grep { $not_orphans{$_} == 0 } keys %V_INST;
} elsif (($subset eq "dependent") and ($odepends{recursive}==0)) {
@found = grep { " $DEPENDS{$_} " =~ / $sseed / } @searchspace;