summaryrefslogtreecommitdiffstats
path: root/perl-install/unused
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-08-23 17:59:13 +0000
committerOlivier Blin <oblin@mandriva.com>2007-08-23 17:59:13 +0000
commit920066e41f3a1c46d37a7441ba22999c3d688fe0 (patch)
tree50c37c039ea5af2b2ff4165a5d897b2c0c9eb201 /perl-install/unused
parent2f0c18091bf86cabe44d0b6d90c1f4fd79f84994 (diff)
download
Diffstat (limited to 'perl-install/unused')
0 files changed, 0 insertions, 0 deletions
target\n"; } } if ($root) { print STDERR "\nMounting other partitions from fstab on $target...\n"; foreach (@fstab) { my ($valued_options, $options) = fs::mount_options::unpack($_); next if !$_->{fs_type} || $_->{device} eq 'none' || $valued_options->{noauto} || $valued_options->{supermount} || $_->{mntpoint} eq '/' || member($_->{fs_type}, 'swap', 'nfs', 'ntfs'); delete $valued_options->{'iocharset='}; delete $valued_options->{'codepage='}; fs::mount_options::pack($_, $valued_options, $options); #- vfat opts, we don't have the modules in rescue my $where = "$target$_->{mntpoint}"; mkdir_p($where); print STDERR "\t$_->{device} on $where type $_->{fs_type} options $_->{options}\n"; system("mount -t $_->{fs_type} /dev/$_->{device} $where -o $_->{options}"); system("cp -f /etc/mtab $target/etc/mtab"); #- to allow a nice chrooted "mount" or "df" } print STDERR "\nYour system is ready on $target.\n\n"; } else { die "Could not find your root device :-(.\n"; }