From f5107dcef4d2bec10e62fc3b64b003b28456d705 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 9 Oct 2003 13:58:02 +0000 Subject: allow mounting devfs as well (move) --- perl-install/fs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index e75e855db..361ba9d0b 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -702,7 +702,7 @@ sub mount { $o_wait_message->(N("Mounting partition %s", $dev)) if $o_wait_message; system('mount', '-t', $fs, $dev, $where, if_($o_options, '-o', $o_options)) == 0 or die \N("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)) { + } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', 'devfs', @fs_modules)) { $where =~ s|/$||; my $flag = c::MS_MGC_VAL(); -- cgit v1.2.1