From 226ddfc44b5bfe5135e60fa93b8449d4f5d4f56e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Sep 2002 13:39:08 +0000 Subject: handle no options in fs::mount (is it really needed?... it should not!) --- perl-install/fs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index b16f5ed8b..cf44be56b 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -678,7 +678,7 @@ sub mount { my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3); if (member($fs, 'smb', 'smbfs', 'nfs', 'davfs', 'ntfs') && $::isStandalone) { - system('mount', '-t', $fs, $dev, $where, '-o', $options) == 0 or die _("mounting partition %s in directory %s failed", $dev, $where); + system('mount', '-t', $fs, $dev, $where, if_($options, '-o', $options)) == 0 or die _("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', @fs_modules)) { $where =~ s|/$||; -- cgit v1.2.1