summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-10-24 21:04:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-10-24 21:04:44 +0000
commitcf5c1d9c23afbe441d0d94868253348f3c71bf9b (patch)
tree18899e0cd38fee2e38d93dd47f68c7bf18596059 /perl-install
parente29e7e0ae78b527adcc5eb23c55f240aa00d08d7 (diff)
downloaddrakx-backup-do-not-use-cf5c1d9c23afbe441d0d94868253348f3c71bf9b.tar
drakx-backup-do-not-use-cf5c1d9c23afbe441d0d94868253348f3c71bf9b.tar.gz
drakx-backup-do-not-use-cf5c1d9c23afbe441d0d94868253348f3c71bf9b.tar.bz2
drakx-backup-do-not-use-cf5c1d9c23afbe441d0d94868253348f3c71bf9b.tar.xz
drakx-backup-do-not-use-cf5c1d9c23afbe441d0d94868253348f3c71bf9b.zip
replace /initrd with /lib/initrd
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm4
-rw-r--r--perl-install/fs.pm8
-rw-r--r--perl-install/fsedit.pm2
-rw-r--r--perl-install/loopback.pm8
4 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index c2a75e8dc..d3dcc43d6 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -392,7 +392,7 @@ wait %d seconds for default boot.
silo => to_bool(arch() =~ /sparc/),
lilo => to_bool(arch() !~ /sparc|ppc/) && !isLoopback(fsedit::get_root($fstab)),
grub => to_bool(arch() !~ /sparc|ppc/ && !isRAID(fsedit::get_root($fstab))),
- loadlin => to_bool(arch() !~ /sparc|ppc/) && -e "/initrd/loopfs/lnx4win",
+ loadlin => to_bool(arch() !~ /sparc|ppc/) && -e "/lib/initrd/loopfs/lnx4win",
);
unless ($lilo->{methods}) {
$lilo->{methods} ||= { map { $_ => 1 } grep { $l{$_} } keys %l };
@@ -905,7 +905,7 @@ sub install_loadlin {
#install_loadlin_config_sys($lilo, $windrive, $label, $cmd);
#install_loadlin_desktop($lilo, $windrive);
- output "/initrd/loopfs/lnx4win/linux.bat", unix2dos(
+ output "/lib/initrd/loopfs/lnx4win/linux.bat", unix2dos(
'@echo off
echo Mandrake Linux
smartdrv /C
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 88792c312..843cd144d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -142,7 +142,7 @@ sub write_fstab {
$_->{device} eq 'none' || member($_->{type}, qw(nfs smbfs)) ?
$_->{device} :
isLoopback($_) ?
- ($_->{mntpoint} eq '/' ? "/initrd/loopfs" : "$_->{loopback_device}{mntpoint}") . $_->{loopback_file} :
+ ($_->{mntpoint} eq '/' ? "/lib/initrd/loopfs" : "$_->{loopback_device}{mntpoint}") . $_->{loopback_file} :
do {
my $dir = $_->{device} =~ m|^/| ? '' : '/dev/';
eval { devices::make("$prefix$dir$_->{device}") };
@@ -151,7 +151,7 @@ sub write_fstab {
my $real_mntpoint = $_->{mntpoint} || ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}};
mkdir("$prefix/$real_mntpoint", 0755);
- my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $real_mntpoint;
+ my $mntpoint = loopback::carryRootLoopback($_) ? '/lib/initrd/loopfs' : $real_mntpoint;
my ($freq, $passno) =
exists $_->{freq} ?
@@ -662,7 +662,7 @@ sub mount_part {
eval { modules::load('loop') };
$dev = $part->{real_device} = devices::set_loop($part->{device}) || die;
} elsif (loopback::carryRootLoopback($part)) {
- $mntpoint = "/initrd/loopfs";
+ $mntpoint = "/lib/initrd/loopfs";
}
mount($dev, $mntpoint, type2fs($part), $rdonly);
rmdir "$mntpoint/lost+found";
@@ -680,7 +680,7 @@ sub umount_part {
if (isSwap($part)) {
swap::swapoff($part->{device});
} elsif (loopback::carryRootLoopback($part)) {
- umount("/initrd/loopfs");
+ umount("/lib/initrd/loopfs");
} else {
umount(($prefix || '') . $part->{mntpoint} || devices::make($part->{device}));
c::del_loop(delete $part->{real_device}) if isLoopback($part);
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 1061fb7a0..1dc4c9990 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -341,7 +341,7 @@ sub file2part {
unless ($file =~ s/^$prefix//) {
my ($part) = grep { loopback::carryRootLoopback($_) } @$fstab or die;
log::l("found $part->{mntpoint}");
- $file =~ s|/initrd/loopfs|$part->{mntpoint}|;
+ $file =~ s|/lib/initrd/loopfs|$part->{mntpoint}|;
}
foreach (@$fstab) {
my $m = $_->{mntpoint};
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 24c519ecb..a7763aa9c 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -50,13 +50,13 @@ sub carryRootCreateSymlink {
unless (-e $mntpoint) {
eval { mkdir_p(dirname($mntpoint)) };
#- do non-relative link for install, should be changed to relative link before rebooting
- symlink "/initrd/loopfs", $mntpoint;
+ symlink "/lib/initrd/loopfs", $mntpoint;
- mkdir_p("/initrd/loopfs/lnx4win/boot");
- symlink "/initrd/loopfs/lnx4win/boot", "$prefix/boot";
+ mkdir_p("/lib/initrd/loopfs/lnx4win/boot");
+ symlink "/lib/initrd/loopfs/lnx4win/boot", "$prefix/boot";
}
#- indicate kernel to keep initrd
- mkdir "$prefix/initrd", 0755;
+ mkdir "$prefix/lib/initrd", 0755;
}