summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-29 16:37:52 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-29 16:37:52 +0000
commit2b049f0f6d1972e445829a2503eaf6d306896e9d (patch)
treea66afbe9702d516675a3bea370ced51ed5c8c616 /perl-install/fs.pm
parentaa912d0daeaa6d4d84addfd2fc0ebba11e137edd (diff)
downloaddrakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.gz
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.bz2
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.xz
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 7e9b460a4..d77a0dc0d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -233,10 +233,12 @@ sub write_fstab($;$$) {
#- keep in mind the new line for fstab.
@new{($_->{mntpoint}, $_->{"$dir$_->{device}"})} = undef;
+ #- tested? devices::make("$prefix/$dir$_->{device}") if $_->{device} && $dir && !$_->{noMakeDevice};
eval { devices::make("$prefix/$dir$_->{device}") } if $_->{device} && $dir;
mkdir "$prefix/$_->{mntpoint}", 0755 if $_->{mntpoint};
- [ "$dir$_->{device}", $_->{mntpoint}, type2fs($_->{type}), $options, $freq, $passno ];
+ [ ( $_->{device} =~ /^\// ? $_->{device} : "$dir$_->{device}" ),
+ $_->{mntpoint}, type2fs($_->{type}), $options, $freq, $passno ];
} grep { $_->{mntpoint} && type2fs($_->{type}) &&
! exists $new{$_->{mntpoint}} && ! exists $new{"/dev/$_->{device}"} } @$fstab;