summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-17 02:35:34 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-17 02:35:34 +0000
commit112b63ff2ae8aa442a641ab4f3cd5b3d111d5329 (patch)
tree4921f4f1c0ea26a326b5bc2d7d5636f5de27625c
parent76b5268727f894dbf69055e96c7f8f3b83ac520d (diff)
downloaddrakx-112b63ff2ae8aa442a641ab4f3cd5b3d111d5329.tar
drakx-112b63ff2ae8aa442a641ab4f3cd5b3d111d5329.tar.gz
drakx-112b63ff2ae8aa442a641ab4f3cd5b3d111d5329.tar.bz2
drakx-112b63ff2ae8aa442a641ab4f3cd5b3d111d5329.tar.xz
drakx-112b63ff2ae8aa442a641ab4f3cd5b3d111d5329.zip
Log the reason why the rpms aren't installed
-rw-r--r--perl-install/pkgs.pm1
1 files changed, 1 insertions, 0 deletions
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) = @_;