From 50676c46842a31f58293e416665bc3f94ca84a53 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Sep 2001 10:05:33 +0000
Subject: allow installing urpmi on hd install even if low memory (so not using
 ramdisk).

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3ad21d605..ea37a7123 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -503,7 +503,7 @@ sub setupFB {
 sub hdInstallPath() {
     my $tail = first(readlink("/tmp/image") =~ m|^/tmp/hdimage/(.*)|);
     my $head = first(readlink("/tmp/hdimage") =~ m|$::o->{prefix}(.*)|);
-    $head && $tail && "$head/$tail";
+    $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail");
 }
 
 sub install_urpmi {
-- 
cgit v1.2.1