jmq
/
Documentation
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

prt-auf: exchange array subscripts, installed <-> locked

This commit is contained in:
John McQuah 2022-12-24 14:45:53 -05:00
parent 1239bdf4ad
commit 787ba038e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/prt-auf
View File

@ -334,8 +334,8 @@ sub printf_ports {
foreach my $pp (@targets) { foreach my $pp (@targets) {
$p = (split /\//, $pp)[-1]; $p = (split /\//, $pp)[-1];
@pstats = get_pkgfile_fields($pp,"all"); @pstats = get_pkgfile_fields($pp,"all");
$pstats[12] = (grep /^$p$/, keys %V_INST) ? "yes" : "no"; $pstats[12] = (grep /^$p$/, @LOCKED) ? "yes" : "no";
$pstats[13] = (grep /^$p$/, @LOCKED) ? "yes" : "no"; $pstats[13] = (grep /^$p$/, keys %V_INST) ? "yes" : "no";
printf STDOUT $outputf, @pstats[@pos]; printf STDOUT $outputf, @pstats[@pos];
} }
} }