diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-12-28 11:48:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-12-28 11:48:21 +0000 |
| commit | 020c80589d57b6376231674f02e35ee5e0424682 (patch) | |
| tree | 362f26fea10105cea3698099e489d0bae444d9a4 /perl-install | |
| parent | 6cbd3ed465fcdfe0ffffb5cc6d86f80af525f0ce (diff) | |
| download | drakx-020c80589d57b6376231674f02e35ee5e0424682.tar drakx-020c80589d57b6376231674f02e35ee5e0424682.tar.gz drakx-020c80589d57b6376231674f02e35ee5e0424682.tar.bz2 drakx-020c80589d57b6376231674f02e35ee5e0424682.tar.xz drakx-020c80589d57b6376231674f02e35ee5e0424682.zip | |
(setup_thiskind_backend): when at_least_one==1, try load_thiskind forcing
pci_class probe when no modules is found.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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... :) } } |