diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-10-24 21:04:44 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-10-24 21:04:44 +0000 |
commit | cf5c1d9c23afbe441d0d94868253348f3c71bf9b (patch) | |
tree | 18899e0cd38fee2e38d93dd47f68c7bf18596059 /perl-install | |
parent | e29e7e0ae78b527adcc5eb23c55f240aa00d08d7 (diff) | |
download | drakx-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.pm | 4 | ||||
-rw-r--r-- | perl-install/fs.pm | 8 | ||||
-rw-r--r-- | perl-install/fsedit.pm | 2 | ||||
-rw-r--r-- | perl-install/loopback.pm | 8 |
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; } |