From 740b4b89fd9f0b4d82a18900f8e24682d5575893 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 21 Dec 2000 12:33:49 +0000 Subject: corrected module stuff.. Thanx to pixel --- perl-install/any.pm | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index be1ff5e28..d43ce2804 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -490,9 +490,10 @@ sub setup_thiskind { my ($in, $type, $auto, $at_least_one) = @_; return if arch() eq "ppc"; - my @l=setup_thiskind_backend ($type, $auto, $at_least_one, sub { my $w = wait_load_module($in, $type, @_) } ); + my @l; if (!$::noauto) { + @l = setup_thiskind_backend ($type, sub { my $w = wait_load_module($in, $type, @_) } ); if (my @err = grep { $_ } map { $_->{error} } @l) { $in->ask_warn('', join("\n", @err)); } @@ -522,19 +523,12 @@ sub setup_thiskind { # setup_thiskind_backend : setup the kind of hardware # input : # $type : typeof hardware to setup -# $auto : automatic behaviour -# $at_least_one : +# $wait_function : function to display a wait message. : ex $wait_function=sub { $w = wait_load_module($in, $type, @_) } # output: # @l : list of loaded 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 ); - return @l if $auto && (@l || !$at_least_one); - } + my ($type, $wait_function) = @_; + modules::load_thiskind($type, $wait_function ); } sub wait_load_module { -- cgit v1.2.1