From 683cd952f24d1ff0177e48780d79bce3386263e7 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 10 Jul 2008 12:53:50 +0000
Subject: fix reading and setting kdmrc (by resolving alternative in chroot)

---
 perl-install/common.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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

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) = @_;
 
-- 
cgit v1.2.1