From 9374ff7c921a3a5810ca68383737b48ee03e527f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 20 Mar 2009 15:51:28 +0000
Subject: (_install_raw::close_helper) make it more readable

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

(limited to 'perl-install')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 046b44b09..0947d14e5 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -748,8 +748,11 @@ sub _install_raw {
                                     install::pkgs::setup_rpm_summary_translations();
                                 }
 
-				$check_installed or log::l($pkg->name . " not installed, " . URPM::rpmErrorString());
-				$check_installed and _unselect_package($packages, $pkg);
+				if ($check_installed) {
+                                    _unselect_package($packages, $pkg);
+                                } else {
+                                    log::l($pkg->name . " not installed, " . URPM::rpmErrorString());
+                                }
         }, inst => $callback,
         trans => $callback,
         # FIXME: implement already_installed_or_not_installable
-- 
cgit v1.2.1