summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-12-02 15:22:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-12-02 15:22:35 +0000
commitb08dab6f1a6775ebe077bf0e135bd12811cacd36 (patch)
treec24fc2e5db251353113c2361688f30ced1201ddd /perl-install/any.pm
parentc83f743fe269a2aecfa03df12bfe698800296455 (diff)
downloaddrakx-b08dab6f1a6775ebe077bf0e135bd12811cacd36.tar
drakx-b08dab6f1a6775ebe077bf0e135bd12811cacd36.tar.gz
drakx-b08dab6f1a6775ebe077bf0e135bd12811cacd36.tar.bz2
drakx-b08dab6f1a6775ebe077bf0e135bd12811cacd36.tar.xz
drakx-b08dab6f1a6775ebe077bf0e135bd12811cacd36.zip
create fix_broken_alternatives()
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm11
1 files changed, 11 insertions, 0 deletions
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 ''