From bae285dff201074f775e6539462cf577a76c7392 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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