From 7d55aaf7807eacf7bf954282dffd433690a2d93b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 20 Mar 2008 13:43:23 +0000
Subject: fix reading alternatives in install

---
 perl-install/common.pm    | 2 +-
 perl-install/install/NEWS | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 92dc85b09..f3aa17273 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -409,7 +409,7 @@ sub load_modules_from_base {
 sub get_alternatives {
     my ($name) = @_;
 
-    my $dir = '/var/lib/rpm/alternatives';
+    my $dir = $::prefix . '/var/lib/rpm/alternatives';
     my ($state, $main_link, @l) = chomp_(cat_("$dir/$name")) or return;
     my @slaves;
     while (@l && $l[0] ne '') {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 33853500f..08ceceac7 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix reading alternatives in install
+
 Version 10.17 - 20 March 2008
 
 - do not unconfigure timezone if timezone screen is canceled (#33565)
-- 
cgit v1.2.1