From d3476c9ec59cb54edbb74f5103212443db7e3ed2 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 21 Aug 2001 15:23:06 +0000
Subject: fixed hd installation for urpmi.

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0966f8ee2..29c8a6875 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -518,7 +518,7 @@ sub install_urpmi {
 	umask $mask;
 
 	my $dir = ${{ nfs => "file://mnt/nfs", 
-                      hd => "file:/" . hdInstallPath(),
+                      disk => "file:/" . hdInstallPath(),
 		      ftp => $ENV{URLPREFIX},
 		      http => $ENV{URLPREFIX},
 		      cdrom => "removable_cdrom_$::i://mnt/cdrom" }}{$method} . "/$_->{rpmsdir}";
@@ -664,7 +664,7 @@ push @graphical_steps, 'doPartitionDisks', 'formatPartitions';
 sub getAndSaveInstallFloppy {
     my ($o, $where) = @_;
     my $image = cat_("/proc/cmdline") =~ /pcmcia/ ? "pcmcia" :
-      ${{ hd => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}};
+      ${{ disk => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}};
     $image .= arch() =~ /sparc64/ && "64"; #- for sparc64 there are a specific set of image.
     getAndSaveFile("images/$image.img", $where) or log::l("failed to write Install Floppy ($image.img) to $where"), return;
     1;
-- 
cgit v1.2.1