From 787ba038e0db5afc071a7dac9160e6b94f3e9b47 Mon Sep 17 00:00:00 2001 From: John McQuah Date: Sat, 24 Dec 2022 14:45:53 -0500 Subject: [PATCH] prt-auf: exchange array subscripts, installed <-> locked --- scripts/prt-auf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/prt-auf b/scripts/prt-auf index 338d040..82c8d41 100755 --- a/scripts/prt-auf +++ b/scripts/prt-auf @@ -334,8 +334,8 @@ sub printf_ports { foreach my $pp (@targets) { $p = (split /\//, $pp)[-1]; @pstats = get_pkgfile_fields($pp,"all"); - $pstats[12] = (grep /^$p$/, keys %V_INST) ? "yes" : "no"; - $pstats[13] = (grep /^$p$/, @LOCKED) ? "yes" : "no"; + $pstats[12] = (grep /^$p$/, @LOCKED) ? "yes" : "no"; + $pstats[13] = (grep /^$p$/, keys %V_INST) ? "yes" : "no"; printf STDOUT $outputf, @pstats[@pos]; } }