From 51637cc2e6a2e158f3ede301c8f16eb915515ab5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 8 Feb 2005 11:37:30 +0000 Subject: new kernel doesn't like usbdevfs any more, it wants usbfs --- perl-install/fs.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 8cdead039..3f4020946 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -487,7 +487,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); } else { - my @types = ('ext2', 'proc', 'sysfs', 'usbdevfs', 'iso9660', 'devfs', 'devpts', @fs_modules); + my @types = ('ext2', 'proc', 'sysfs', 'usbfs', 'usbdevfs', 'iso9660', 'devfs', 'devpts', @fs_modules); member($fs, @types) or log::l("skipping mounting $dev partition ($fs)"), return; @@ -666,4 +666,11 @@ sub df { $part->{free}; } +sub mount_usbfs { + my ($prefix) = @_; + + my $fs = cat_('/proc/filesystems') =~ /usbfs/ ? 'usbfs' : 'usbdevfs'; + mount('none', "$prefix/proc/bus/usb", $fs); +} + 1; -- cgit v1.2.1