From e3116a5c51974085ffab445c07d269d0eb4b00d9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 2 Apr 2008 19:48:52 +0000 Subject: prefer match with exact same name first (for devel packages to be preferred) --- lib/Iurt/DKMS.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Iurt/DKMS.pm') diff --git a/lib/Iurt/DKMS.pm b/lib/Iurt/DKMS.pm index 1c028be..9827990 100644 --- a/lib/Iurt/DKMS.pm +++ b/lib/Iurt/DKMS.pm @@ -123,13 +123,13 @@ sub search_dkms { next if $cache->{dkms}{"$realmodule-kernel-$modulesdir-$realversion"} && !$run->{ignore_failure}; if (!$modules{$realmodule}{$realversion}{$modulesdir}) { my @choices; + push @choices, $kernel; if (my ($name, $v) = $kernel =~ /^([^-]+)-.*-(2\..*)/) { push @choices, "$name-$v"; } if (my ($name) = $kernel =~ /(2\..*)/) { push @choices, $name; } - push @choices, $kernel; my $source = find { $kernel_source{$_} } @choices; if (!$source) { plog('ERR', "ERROR: no source for kernel $kernel (tried " . join(", ", @choices) . ")"); -- cgit v1.2.1