From dd25ae5c336f802860a25bfdbfc07b0c4e72d9ae Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 4 Sep 2001 17:00:37 +0000 Subject: mount ext3 as ext2 during install for speed up --- perl-install/fs.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 7c026d26f..c919c574c 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -557,6 +557,7 @@ sub mount { system('mount', $dev, $where) == 0 or die _("mount failed"); } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', @fs_modules)) { $dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs'; + $where =~ s|/$||; my $flag = c::MS_MGC_VAL(); $flag |= c::MS_RDONLY() if $rdonly; @@ -579,8 +580,13 @@ sub mount { } elsif ($fs eq 'iso9660') { eval { modules::load('isofs') }; } - - $where =~ s|/$||; + if ($fs eq 'ext3' && $::isInstall) { + # ext3 mount to use the journal + syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!"; + syscall_('umount', $where); + # really mount as ext2 during install for speed up + $type = 'ext2'; + } log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)"); syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!"; } else { -- cgit v1.2.1