From ae0e9fa5ba2035f005086f238e5dbba57108e391 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Mon, 22 Oct 2012 20:07:19 +0000
Subject: minor tidyup (collapse redundant if)

---
 perl-install/install/steps.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index f006e5f6d..54f322632 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -324,10 +324,8 @@ sub beforeInstallPackages {
 
     if ($o->{isUpgrade}) {
 	$o->{modules_conf}->merge_into(modules::any_conf->read);
-    }
 
-    #- save these files in case of upgrade failure.
-    if ($o->{isUpgrade}) {
+	#- save these files in case of upgrade failure.
 	foreach (@filesToSaveForUpgrade) {
 	    unlink "$::prefix/$_.mdkgisave";
 	    if (-e "$::prefix/$_") {
-- 
cgit v1.2.1