From ad1e299f4afad9e23fa64e7fe42487e64ef5ba8c Mon Sep 17 00:00:00 2001 From: John McQuah Date: Sat, 11 Jun 2022 08:56:25 -0400 Subject: [PATCH] prt-auf: fixed sysup() subroutine --- scripts/prt-auf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scripts/prt-auf b/scripts/prt-auf index 73f3177..a0e5e2f 100755 --- a/scripts/prt-auf +++ b/scripts/prt-auf @@ -643,11 +643,11 @@ sub up_inst { # returns scalar references to five arrays; @targets = grep { (join " ", @allports) =~ / $_ / } @targets if ($type eq "grpinst"); # exempt any locked ports from an sysup operation - %EXEMPT = map { $_ => 0 } @LOCKED; + %EXEMPT = map { $_ => 1 } @LOCKED; %WANTED = map { $_ => 1 } @requested; - if ($action eq "sysup") { @targets = grep {defined $EXEMPT{$_}} @targets; + if ($action eq "sysup") { @targets = grep {! $EXEMPT{$_}} @targets; } else { - @targets = grep {(defined $EXEMPT{$_}) or (defined $WANTED{$_})} @targets; + @targets = grep {(! $EXEMPT{$_}) or ($WANTED{$_})} @targets; } # first determine the directories from which pkgmk must be called