diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-17 02:35:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-17 02:35:34 +0000 |
| commit | 112b63ff2ae8aa442a641ab4f3cd5b3d111d5329 (patch) | |
| tree | 4921f4f1c0ea26a326b5bc2d7d5636f5de27625c /perl-install/pkgs.pm | |
| parent | 76b5268727f894dbf69055e96c7f8f3b83ac520d (diff) | |
| download | drakx-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
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 1 |
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) = @_; |