diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-20 13:43:23 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-20 13:43:23 +0000 |
| commit | 7d55aaf7807eacf7bf954282dffd433690a2d93b (patch) | |
| tree | 3c62328f3ac6d3cfea907fe17d7d052a8cd7cdf8 /perl-install/common.pm | |
| parent | 51769b7c463d4c2809086df3dbd603cfc7d1cb5a (diff) | |
| download | drakx-7d55aaf7807eacf7bf954282dffd433690a2d93b.tar drakx-7d55aaf7807eacf7bf954282dffd433690a2d93b.tar.gz drakx-7d55aaf7807eacf7bf954282dffd433690a2d93b.tar.bz2 drakx-7d55aaf7807eacf7bf954282dffd433690a2d93b.tar.xz drakx-7d55aaf7807eacf7bf954282dffd433690a2d93b.zip | |
fix reading alternatives in install
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 '') { |