summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-12-28 11:48:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-12-28 11:48:21 +0000
commit020c80589d57b6376231674f02e35ee5e0424682 (patch)
tree362f26fea10105cea3698099e489d0bae444d9a4 /perl-install
parent6cbd3ed465fcdfe0ffffb5cc6d86f80af525f0ce (diff)
downloaddrakx-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.pm6
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... :)
}
}