From f1f4c511fe2b75a7857d6aba3221294859fd1a88 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 19 Sep 2001 16:04:28 +0000
Subject: added code to check if package are really installed.

---
 perl-install/pkgs.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

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);
-- 
cgit v1.2.1