From 020c80589d57b6376231674f02e35ee5e0424682 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 28 Dec 2001 11:48:21 +0000 Subject: (setup_thiskind_backend): when at_least_one==1, try load_thiskind forcing pci_class probe when no modules is found. --- perl-install/any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index a34d6e8fc..1a8e5657a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -603,7 +603,7 @@ sub setup_thiskind { my @l = do { my $w; - setup_thiskind_backend ($type, $auto, $at_least_one, sub { $w = wait_load_module($in, $type, @_); } ); + setup_thiskind_backend($type, $auto, $at_least_one, sub { $w = wait_load_module($in, $type, @_) }); }; if (!$::noauto) { @@ -644,9 +644,9 @@ sub setup_thiskind_backend { my ($type, $auto, $at_least_one, $wait_function) = @_; #- for example $wait_function=sub { $w = wait_load_module($in, $type, @_) } - my @l; if (!$::noauto) { - @l = modules::load_thiskind($type, $wait_function ); + my @l = modules::load_thiskind($type, $wait_function, ''); + @l = modules::load_thiskind($type, $wait_function, 'force') if !@l && $at_least_one; return @l;# sorry to be a sucker, pixel... :) } } -- cgit v1.2.1