From bae285dff201074f775e6539462cf577a76c7392 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 3 Feb 2004 15:50:23 +0000 Subject: fix typo --- perl-install/modules.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 47c3bec8c..79f3aa3ed 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -36,7 +36,11 @@ sub load { my @l = map { my ($name, @options) = ref($_) ? @$_ : $_; $options{$name} = \@options; - dependencies_closure($name); + my @l = dependencies_closure($name); + if (c::kernel_version() =~ /^\@2.6/) { + push @l, "$1-hcd" if $name =~ /(uhci|ohci)/; # usb-uhci, uhci, usb-ohci are deprecated in 2.6 + } + @l; } @_; @l = difference2([ uniq(@l) ], [ map { my $s = $_; $s =~ s/_/-/g; $s, $_ } loaded_modules() ]) or return; -- cgit v1.2.1