summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-11-12 13:29:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-11-12 13:29:11 +0000
commit4240d64a1a513fc3bfab971492e5f03cb764d09a (patch)
treef48f4ad52e09fa9ccff8a9c1c9142be745f312da /perl-install
parent592828dbadbf03d7dfa698826764840009513653 (diff)
downloaddrakx-backup-do-not-use-4240d64a1a513fc3bfab971492e5f03cb764d09a.tar
drakx-backup-do-not-use-4240d64a1a513fc3bfab971492e5f03cb764d09a.tar.gz
drakx-backup-do-not-use-4240d64a1a513fc3bfab971492e5f03cb764d09a.tar.bz2
drakx-backup-do-not-use-4240d64a1a513fc3bfab971492e5f03cb764d09a.tar.xz
drakx-backup-do-not-use-4240d64a1a513fc3bfab971492e5f03cb764d09a.zip
- use the "mount" command directly in move
- still not really clean ($o_options is dropped in many cases)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/fs.pm25
2 files changed, 15 insertions, 12 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index da4b667c2..d28cae3e1 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -546,7 +546,7 @@ sub inspect {
$dir = '';
} else {
mkdir $dir, 0700;
- eval { fs::mount($part->{device}, $dir, type2fs($part), !$b_rw) };
+ eval { fs::mount($part->{device}, $dir, type2fs($part, 'skip'), !$b_rw) };
$@ and return;
}
my $h = before_leaving {
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 361ba9d0b..6a6b403d0 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -696,13 +696,18 @@ sub mount {
$dev = part2device('', $dev, $fs);
+ $fs ne 'skip' or log::l("not mounting $dev partition"), return;
+
my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3);
- if (member($fs, 'smb', 'smbfs', 'nfs', 'davfs', 'ntfs') && $::isStandalone) {
+ if (member($fs, 'smb', 'smbfs', 'nfs', 'davfs', 'ntfs') && $::isStandalone || $::move) {
$o_wait_message->(N("Mounting partition %s", $dev)) if $o_wait_message;
system('mount', '-t', $fs, $dev, $where, if_($o_options, '-o', $o_options)) == 0 or die \N("mounting partition %s in directory %s failed", $dev, $where);
- return; #- do not update mtab, already done by mount(8)
- } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', 'devfs', @fs_modules)) {
+ } else {
+ my @types = ('ext2', 'proc', 'usbdevfs', 'iso9660', 'devfs', @fs_modules);
+
+ member($fs, @types) or log::l("skipping mounting $dev partition ($fs)"), return;
+
$where =~ s|/$||;
my $flag = c::MS_MGC_VAL();
@@ -751,13 +756,11 @@ sub mount {
log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)");
$o_wait_message->(N("Mounting partition %s", $dev)) if $o_wait_message;
syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die \(N("mounting partition %s in directory %s failed", $dev, $where) . " ($!)");
- } else {
- log::l("skipping mounting $fs partition");
- return;
+
+ eval { #- fail silently, /etc may be read-only
+ append_to_file("/etc/mtab", "$dev $where $fs defaults 0 0\n");
+ };
}
- eval { #- fail silently, /etc must be read-only
- append_to_file("/etc/mtab", "$dev $where $fs defaults 0 0\n");
- };
}
#- takes the mount point to umount (can also be the device)
@@ -812,7 +815,7 @@ sub mount_part {
$mntpoint = "/initrd/loopfs";
}
my $dev = $part->{real_device} || $part->{device};
- mount($dev, $mntpoint, type2fs($part), $b_rdonly, $part->{options}, $o_wait_message);
+ mount($dev, $mntpoint, type2fs($part, 'skip'), $b_rdonly, $part->{options}, $o_wait_message);
rmdir "$mntpoint/lost+found";
}
}
@@ -862,7 +865,7 @@ sub df {
return; #- won't even try!
} else {
mkdir_p($dir);
- eval { mount($part->{device}, $dir, type2fs($part), 'readonly') };
+ eval { mount($part->{device}, $dir, type2fs($part, 'skip'), 'readonly') };
if ($@) {
$part->{notFormatted} = 1;
$part->{isFormatted} = 0;