summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index ed88ea3ee..11deb20f8 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -292,10 +292,12 @@ sub write($$$$) {
local *F;
open F, "> $prefix/etc/mtab" or die "error resetting $prefix/etc/mtab";
+ my ($floppy) = detect_devices::floppies();
+
my @to_add = (
$useSupermount ?
- [ split ' ', '/mnt/floppy /mnt/floppy supermount fs=vfat,dev=/dev/fd0 0 0' ] :
- [ split ' ', '/dev/fd0 /mnt/floppy auto sync,user,noauto,nosuid,nodev,unhide 0 0' ],
+ [ split ' ', "/mnt/floppy /mnt/floppy supermount fs=vfat,dev=/dev/$floppy 0 0" ] :
+ [ split ' ', '/dev/$floppy /mnt/floppy auto sync,user,noauto,nosuid,nodev,unhide 0 0' ],
[ split ' ', 'none /proc proc defaults 0 0' ],
[ split ' ', 'none /dev/pts devpts mode=0620 0 0' ],
(map_index {