From b08dab6f1a6775ebe077bf0e135bd12811cacd36 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 Dec 2003 15:22:35 +0000
Subject: create fix_broken_alternatives()

---
 perl-install/install_steps.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index eb64f1b68..dc158e591 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -514,14 +514,7 @@ GridHeight=70
 	}
     }
 
-    #- fix bad update-alternatives that may occurs after upgrade (but let them for install too).
-    if (-d "$o->{prefix}/etc/alternatives") {
-	foreach (all("$o->{prefix}/etc/alternatives")) {
-	    next if run_program::rooted($o->{prefix}, 'test', '-e', "/etc/alternatives/$_");
-	    log::l("fixing broken alternative $_");
-	    run_program::rooted($o->{prefix}, "update-alternatives", "--auto", $_);
-	}
-    }
+    fix_broken_alternatives();
 
     #- update theme directly from a package (simplest).
     if (-s "$o->{prefix}/usr/share/oem-theme.rpm") {
-- 
cgit v1.2.1