diff options
| -rw-r--r-- | perl-install/pkgs.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2f0aeaaac..76ebba342 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1388,7 +1388,13 @@ sub install($$$;$$) { log::l("rpmRunTransactions start"); my @probs = c::rpmRunTransactions($trans, $callbackOpen, sub { #- callbackClose - print OUTPUT "close:$_[0]\n"; }, + my $p = $packages{$_[0]} or return; + my $check_installed; + c::rpmdbNameTraverse($db, packageName($p), sub { + my ($header) = @_; + $check_installed = c::headerGetEntry($header, 'version') eq packageVersion($p) && c::headerGetEntry($header, 'release') eq packageRelease($p); + }); + $check_installed and print OUTPUT "close:$_[0]\n"; }, sub { #- installCallback print OUTPUT join(":", @_), "\n"; }, 1); |