prt-auf: provide a post-transaction report for sysup too
This commit is contained in:
parent
a9d28989f1
commit
46ded7d692
@ -143,7 +143,7 @@ if (($action =~ /^(listinst|listorphans)/)
|
||||
my @failures = grep { $removed{$_}==0 } keys %removed;
|
||||
print "Ports removed:\n" if (@successes);
|
||||
foreach my $p (@successes) { print "$p\n"; }
|
||||
} elsif ($action =~ /^(install|update|depinst|grpinst)$/) {
|
||||
} elsif ($action =~ /^(install|update|depinst|grpinst|sysup)$/) {
|
||||
my @ok = @{$results[0]}; my @ok_pre = @{$results[1]}; my @ok_post = @{$results[2]};
|
||||
my @ok_readme = @{$results[3]}; my @not_ok = @{$results[4]}; my $note;
|
||||
if (($opkg{test} eq "no") and (@ok)) {
|
||||
@ -734,7 +734,7 @@ sub up_inst { # returns scalar references to five arrays
|
||||
sub sysup {
|
||||
my @targets; my $v_repo;
|
||||
foreach my $p (keys %V_INST) {
|
||||
next if grep /$p/, @LOCKED;
|
||||
next if grep /^$p$/, @LOCKED;
|
||||
$v_repo = ($V_REPO{$p}) ? $V_REPO{$p} : "MISSING" ;
|
||||
push @targets, $p if (($v_repo ne $V_INST{$p}) and ($v_repo ne "MISSING"));
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user