diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-07-10 12:53:50 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-07-10 12:53:50 +0000 |
| commit | 683cd952f24d1ff0177e48780d79bce3386263e7 (patch) | |
| tree | 2c80fe33302af5b3d9a1cbb98d6fafbf24b95328 /perl-install/common.pm | |
| parent | 9bccc7c1f3b773f187376ffbdd04bccb6afe7753 (diff) | |
| download | drakx-683cd952f24d1ff0177e48780d79bce3386263e7.tar drakx-683cd952f24d1ff0177e48780d79bce3386263e7.tar.gz drakx-683cd952f24d1ff0177e48780d79bce3386263e7.tar.bz2 drakx-683cd952f24d1ff0177e48780d79bce3386263e7.tar.xz drakx-683cd952f24d1ff0177e48780d79bce3386263e7.zip | |
fix reading and setting kdmrc (by resolving alternative in chroot)
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index f3aa17273..9ffb01ea1 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -239,6 +239,12 @@ sub join_lines { } +sub read_alternative { + my ($name) = @_; + my $alt = readlink("$::prefix/etc/alternatives/$name"); + $alt && $::prefix . $alt; +} + sub set_alternative { my ($command, $executable) = @_; |