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;
|
my @failures = grep { $removed{$_}==0 } keys %removed;
|
||||||
print "Ports removed:\n" if (@successes);
|
print "Ports removed:\n" if (@successes);
|
||||||
foreach my $p (@successes) { print "$p\n"; }
|
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 = @{$results[0]}; my @ok_pre = @{$results[1]}; my @ok_post = @{$results[2]};
|
||||||
my @ok_readme = @{$results[3]}; my @not_ok = @{$results[4]}; my $note;
|
my @ok_readme = @{$results[3]}; my @not_ok = @{$results[4]}; my $note;
|
||||||
if (($opkg{test} eq "no") and (@ok)) {
|
if (($opkg{test} eq "no") and (@ok)) {
|
||||||
@ -734,7 +734,7 @@ sub up_inst { # returns scalar references to five arrays
|
|||||||
sub sysup {
|
sub sysup {
|
||||||
my @targets; my $v_repo;
|
my @targets; my $v_repo;
|
||||||
foreach my $p (keys %V_INST) {
|
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" ;
|
$v_repo = ($V_REPO{$p}) ? $V_REPO{$p} : "MISSING" ;
|
||||||
push @targets, $p if (($v_repo ne $V_INST{$p}) and ($v_repo ne "MISSING"));
|
push @targets, $p if (($v_repo ne $V_INST{$p}) and ($v_repo ne "MISSING"));
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user