diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-01 18:50:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-01 18:50:20 +0000 |
| commit | e82688c8b8f639705356d25c180ffe754c2b2c34 (patch) | |
| tree | 5aaa31fba94a1b2b7f19707c79ecde769ce769d4 /perl-install/fs.pm | |
| parent | 8acdea865038475cdb1884abe889a4175975aa2f (diff) | |
| download | drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.gz drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.bz2 drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.xz drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 225f5341b..50cdec0fc 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -79,6 +79,8 @@ sub format_part($;$) { $part->{isFormatted} and return; + log::l("formatting device $part->{device} (type ", type2name($_->{type}), ")"); + if (isExt2($part)) { format_ext2($part->{device}, $bad_blocks); } elsif (isDos($part)) { @@ -102,16 +104,16 @@ sub mount($$$;$) { nfs::mount($dev, $where) or die "nfs mount failed"; } elsif ($fs eq 'smb') { die "no smb yet..."; - } - $dev = devices::make($dev); - - my $flag = 0;#c::MS_MGC_VAL(); - $flag |= c::MS_RDONLY() if $rdonly; - my $mount_opt = $fs eq 'vfat' ? "check=relaxed" : ""; - - log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)"); - syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die "mount failed: $!"; + } else { + $dev = devices::make($dev) if $fs ne 'proc'; + my $flag = 0;#c::MS_MGC_VAL(); + $flag |= c::MS_RDONLY() if $rdonly; + my $mount_opt = $fs eq 'vfat' ? "check=relaxed" : ""; + + log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)"); + syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die "mount failed: $!"; + } local *F; open F, ">>/etc/mtab" or return; # fail silently, must be read-only /etc print F "$dev $where $fs defaults 0 0\n"; |