From af2f16a90418a7a42c856cc50256983147715b43 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 22 Sep 2004 05:06:06 +0000
Subject: Better error reporting with rpm installation failures

---
 perl-install/pkgs.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0673fcf53..b133611d0 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -228,8 +228,8 @@ sub allMediums {
     sort { $a <=> $b } keys %{$packages->{mediums}};
 }
 sub mediumDescr {
-    my ($packages, $medium) = @_;
-    $packages->{mediums}{$medium}{descr};
+    my ($packages, $medium_name) = @_;
+    $packages->{mediums}{$medium_name}{descr};
 }
 
 sub packageRequest {
@@ -1124,6 +1124,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