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/any.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index baf5b6e65..84685dd83 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -861,6 +861,17 @@ UNREGISTER	^$devfs_if\$	EXECUTE /etc/dynamic/scripts/rawdevice.script del /dev/$
 ");
 }
 
+sub fix_broken_alternatives() {
+    #- fix bad update-alternatives that may occurs after upgrade (and sometimes for install too).
+    -d "$::prefix/etc/alternatives" or return;
+
+    foreach (all("$::prefix/etc/alternatives")) {
+	next if run_program::rooted($::prefix, 'test', '-e', "/etc/alternatives/$_");
+	log::l("fixing broken alternative $_");
+	run_program::rooted($::prefix, 'update-alternatives', '--auto', $_);
+    }
+}
+
 
 sub fileshare_config {
     my ($in, $type) = @_; #- $type is 'nfs', 'smb' or ''
-- 
cgit v1.2.1