From 112b63ff2ae8aa442a641ab4f3cd5b3d111d5329 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Tue, 17 Aug 2004 02:35:34 +0000
Subject: Log the reason why the rpms aren't installed

---
 perl-install/pkgs.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2948f062b..ade4353d3 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1117,6 +1117,7 @@ sub install($$$;$$) {
 								      my ($p) = @_;
 								      $check_installed ||= $pkg->compare_pkg($p) == 0;
 								  });
+						$check_installed or log::l($pkg->name . " not installed, " . c::rpmErrorString());
 						$check_installed and print OUTPUT "close:$id\n";
 					    }, callback_inst => sub {
 						my ($_data, $type, $id, $subtype, $amount, $total) = @_;
-- 
cgit v1.2.1