summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-25 16:11:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-25 16:11:44 +0000
commit8963978e3877755bb2696bca8f5d2883e2829484 (patch)
tree35ec2c7d6cdef2e5a957ae66229f9d9458cc1787 /perl-install
parentbc3670947e70555dffd38c1b1dd2829579090c15 (diff)
downloaddrakx-backup-do-not-use-8963978e3877755bb2696bca8f5d2883e2829484.tar
drakx-backup-do-not-use-8963978e3877755bb2696bca8f5d2883e2829484.tar.gz
drakx-backup-do-not-use-8963978e3877755bb2696bca8f5d2883e2829484.tar.bz2
drakx-backup-do-not-use-8963978e3877755bb2696bca8f5d2883e2829484.tar.xz
drakx-backup-do-not-use-8963978e3877755bb2696bca8f5d2883e2829484.zip
(mount): accept mounting iso9660 filesystem as it should be
Diffstat (limited to 'perl-install')
-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 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|/$||;