summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-18 04:23:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-18 04:23:55 +0000
commit1e981e770b74cadcf5926dedad37f69b45b097ab (patch)
treed13085ce2523bd30c46178e6644804c792c9edfa /perl-install
parentb47c58af1703e7d851e0d7b489a70bff15d5f28d (diff)
downloaddrakx-1e981e770b74cadcf5926dedad37f69b45b097ab.tar
drakx-1e981e770b74cadcf5926dedad37f69b45b097ab.tar.gz
drakx-1e981e770b74cadcf5926dedad37f69b45b097ab.tar.bz2
drakx-1e981e770b74cadcf5926dedad37f69b45b097ab.tar.xz
drakx-1e981e770b74cadcf5926dedad37f69b45b097ab.zip
merge floppies support from MDK-10-branch
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakupdate_fstab8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab
index 12f3d959c..c911f7055 100755
--- a/perl-install/standalone/drakupdate_fstab
+++ b/perl-install/standalone/drakupdate_fstab
@@ -83,6 +83,7 @@ sub device_name_to_entry {
} else {
$e->{device} = $name; #- keeping the exact name given (often is the devfs name)
}
+ $e->{media_type} = 'fd' if $name =~ /fd[01]/;
$e;
}
@@ -130,7 +131,7 @@ sub main {
cp_af('/etc/fstab', $fstab_file = '/tmp/fstab');
}
- my $fstab = [ fs::read_fstab('', '/etc/fstab', 'keep_default', 'verbatim_credentials') ];
+ my $fstab = [ fs::read_fstab('', '/etc/fstab', 'keep_freq_passno', 'keep_devfs_name', 'verbatim_credentials') ];
my ($existing_fstab_entries, $fstab_) = partition { $_->{device} eq $part->{device} || $_->{device} eq $part->{devfs_device} } @$fstab;
if ($action eq 'add') {
@@ -143,7 +144,10 @@ sub main {
set_mount_point($part, $fstab) or return;
my ($line) = fs::prepare_write_fstab([$part]);
- append_to_file($fstab_file, $line) if $line;
+ if ($line) {
+ append_to_file($fstab_file, $line);
+ system("mount $part->{mntpoint}") if !$::testing && $device_name =~ /^fd\d+/;
+ }
if ($::auto) {
print $part->{mntpoint}, " ", $useSupermount ? 'supermount' : 'user', "\n";