diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 05:06:06 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 05:06:06 +0000 |
commit | af2f16a90418a7a42c856cc50256983147715b43 (patch) | |
tree | 5deb4833d286a28218537c6c6daf4952a159d469 /perl-install | |
parent | 52be628d90b2e51d9d3440e72c1771ea7ee5c86f (diff) | |
download | drakx-af2f16a90418a7a42c856cc50256983147715b43.tar drakx-af2f16a90418a7a42c856cc50256983147715b43.tar.gz drakx-af2f16a90418a7a42c856cc50256983147715b43.tar.bz2 drakx-af2f16a90418a7a42c856cc50256983147715b43.tar.xz drakx-af2f16a90418a7a42c856cc50256983147715b43.zip |
Better error reporting with rpm installation failures
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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) = @_; |