summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
commitd7c6e8b958a653501f480b1cdc02c5020306669f (patch)
tree5320f01f21e0e2d68a2b5e5cfab4f73b17d4639d /perl-install/fs.pm
parentef80e39ba0bde1a7022c864fc092f1b6575449d8 (diff)
downloaddrakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.gz
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.bz2
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.xz
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.zip
*** empty log message ***
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 87eb0c132..5e0bee90d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -244,6 +244,21 @@ sub write_fstab($;$$) {
} grep { $_->{mntpoint} && type2fs($_->{type}) &&
! exists $new{$_->{mntpoint}} && ! exists $new{"/dev/$_->{device}"} } @$fstab;
+ #- inserts dos/win partitions in fstab.
+ #- backward compatible win kdeicons script to handle upgrade correctly?
+ unshift @to_add,
+ map_index {
+ my $i = $::i ? $::i + 1 : '';
+ my $device = $_->{device} =~ /^\/dev\/(.*)$/ ? $1 : $_->{device};
+
+ #- keep in mind the new line for fstab.
+ @new{("/mnt/DOS_$device", "/dev/$device")} = undef;
+
+ mkdir "$prefix/mnt/DOS_$device", 0755 or log::l("failed to mkdir $prefix/mnt/DOS_$device: $!");
+ [ "/dev/$device", "/mnt/DOS_$device", "vfat", "user,exec,conv=auto", 0, 0 ];
+ } grep { isFat($_) &&
+ ! exists $new{"/dev/$_->{device}"} } @$fstab;
+
my @current = cat_("$prefix/etc/fstab");
log::l("writing $prefix/etc/fstab");