From 51900bf600bb8b20708f2d862f60dc5f7be71712 Mon Sep 17 00:00:00 2001 From: John McQuah Date: Tue, 14 Jun 2022 12:08:06 -0400 Subject: [PATCH] prt-auf: simplified the filter for invalid ports in up_inst() --- scripts/prt-auf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/prt-auf b/scripts/prt-auf index d0ce492..7ffc76c 100755 --- a/scripts/prt-auf +++ b/scripts/prt-auf @@ -43,7 +43,7 @@ if ($action !~ /^(quickdep|search|dsearch|fsearch|info|dup|readme|cat)$/) { close (DB); } -if ($action =~ /^(diff|quickdiff|listlocked|depends|deptree|remove|install|update|depinst|sysup)$/) { +if ($action =~ /^(diff|quickdiff|listlocked|depends|deptree|remove|install|update|depinst|grpinst|sysup)$/) { get_locked_and_aliased(); } @@ -652,7 +652,7 @@ sub up_inst { # returns scalar references to five arrays; my @targets=($type eq "grpinst") ? @_ : deporder("quickdep",@_); # filter out the invalid ports if deporder() didn't do so already - @targets = grep { (join " ", @allports) =~ /$_/ } @targets if ($type eq "grpinst"); + @targets = grep { ($V_REPO{$_}) } @targets if ($type eq "grpinst"); # exempt any locked ports from an sysup operation %EXEMPT = map { $_ => 1 } @LOCKED;