corrected typo.

1 files changed, 31 insertions, 8 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 68d7ae8e9..be1ff5e28 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -249,6 +249,18 @@ sub setAutologin {
 	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
 }
 
+sub rotate_log {
+    my ($f) = @_;
+    if (-e $f) {
+	my $i = 1;
+	for (; -e "$f$i" || -e "$f$i.gz"; $i++) {}
+	rename $f, "$f$i";
+    }
+}
+sub rotate_logs {
+    my ($prefix) = @_;
+    rotate_log("$prefix/root/$_") foreach qw(ddebug.log install.log);
+}
 
 sub writeandclean_ldsoconf {
     my ($prefix) = @_;
@@ -474,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));
 	}
@@ -514,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,...)