From e6850e7708cb4a570635e0a1fc0b95f46c418176 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 14 Dec 2000 07:25:12 +0000
Subject: Big jump. The *_new.pm are replaced by *.pm Everything should work,
 but you better test :)

---
 perl-install/any.pm | 27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 3e8e04daa..be1ff5e28 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -486,20 +486,13 @@ sub miscellaneousNetwork {
     setVarsInCsh("$prefix/etc/profile.d/proxy.csh", $::o->{miscellaneous}, qw(http_proxy ftp_proxy));
 }
 
-sub load_thiskind {
-    my ($in, $type) = @_;
-    my $w;
-    modules::load_thiskind($type, sub { $w = wait_load_module($in, $type, @_) });
-}
-
 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 = load_thiskind($in, $type);
 	if (my @err = grep { $_ } map { $_->{error} } @l) {
 	    $in->ask_warn('', join("\n", @err));
 	}
@@ -526,6 +519,24 @@ sub setup_thiskind {
     }
 }
 
+# setup_thiskind_backend : setup the kind of hardware
+# input :
+#  $type : typeof hardware to setup
+#  $auto : automatic behaviour
+#  $at_least_one : 
+# 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);
+    }
+}
+
 sub wait_load_module {
     my ($in, $type, $text, $module) = @_;
 #-PO: the first %s is the card type (scsi, network, sound,...)
-- 
cgit v1.2.1