From 8963978e3877755bb2696bca8f5d2883e2829484 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 25 Aug 2001 16:11:44 +0000 Subject: (mount): accept mounting iso9660 filesystem as it should be --- perl-install/fs.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 41d470092..be285ef0b 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -518,7 +518,7 @@ sub mount { if (member($fs, 'smb', 'nfs') && $::isStandalone) { system('mount', $dev, $where) == 0 or die _("mount failed"); - } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', @fs_modules)) { + } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', @fs_modules)) { $dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs'; my $flag = c::MS_MGC_VAL(); @@ -539,6 +539,8 @@ sub mount { } if (member($fs, @fs_modules)) { eval { modules::load($fs) }; + } elsif ($fs eq 'iso9660') { + eval { modules::load('isofs') }; } $where =~ s|/$||; -- cgit v1.2.1