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

prt-auf: simplified the filter for invalid ports in up_inst()

Browse Source
This commit is contained in:
John McQuah 2022-06-14 12:08:06 -04:00
parent 23d06ec1f0
commit 51900bf600
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

@ -43,7 +43,7 @@ if ($action !~ /^(quickdep|search|dsearch|fsearch|info|dup|readme|cat)$/) {
close (DB); 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(); get_locked_and_aliased();
} }
@ -652,7 +652,7 @@ sub up_inst { # returns scalar references to five arrays;
my @targets=($type eq "grpinst") ? @_ : deporder("quickdep",@_); my @targets=($type eq "grpinst") ? @_ : deporder("quickdep",@_);
# filter out the invalid ports if deporder() didn't do so already # 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 any locked ports from an sysup operation
%EXEMPT = map { $_ => 1 } @LOCKED; %EXEMPT = map { $_ => 1 } @LOCKED;