From ec88df0a7b7659d4c096a4c5540b28db816d7205 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 22 Jul 2002 21:23:57 +0000
Subject: when $::noauto, hardwire no probing in detect_devices::probeall to
 ensure no probing is never done

---
 perl-install/any.pm            | 2 +-
 perl-install/detect_devices.pm | 3 +++
 perl-install/install2.pm       | 2 +-
 perl-install/mouse.pm          | 2 +-
 4 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e28084f4e..0f472748c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -641,7 +641,7 @@ sub load_category {
     my ($in, $category, $auto, $at_least_one) = @_;
 
     my @l;
-    if (!$::noauto) {
+    {
 	my $w;
 	my $wait_message = sub { $w = wait_load_module($in, $category, @_) };
 	@l = modules::load_category($category, $wait_message);
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 0c4b2f82e..c8fbc762d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -379,6 +379,9 @@ sub pcmcia_probe {
 # => probeall with $probe_type is unsafe
 sub probeall {
     my ($probe_type) = @_;
+
+    return if $::noauto;
+
     require sbus_probing::main;
     pci_probe($probe_type), usb_probe(), pcmcia_probe(), sbus_probing::main::probe();
 }
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 69afd5dff..8d159f9ec 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -499,7 +499,7 @@ sub main {
     require"install_steps_$o->{interactive}.pm" if $o->{interactive}; #- no space to skip perl2fcalls
 
     #- needed before accessing floppy (in case of usb floppy)
-    $::noauto or modules::load_category('bus/usb'); 
+    modules::load_category('bus/usb'); 
 
     #- patch should be read after defcfg in order to take precedance.
     eval { $o = $::o = install_any::loadO($o, $cfg) } if $cfg;
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index b91234301..36ab50960 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -319,7 +319,7 @@ sub detect() {
 			MOUSETYPE  => "Microsoft",
 			XMOUSETYPE => "Microsoft"}, @wacom;
 
-    if (!modules::get_probeall("usb-interface") && detect_devices::is_a_recent_computer() && $::isInstall && !$::noauto) {
+    if (!modules::get_probeall("usb-interface") && detect_devices::is_a_recent_computer() && $::isInstall) {
 	#- special case for non detected usb interface on a box with no mouse.
 	#- we *must* find out if there really is no usb, otherwise the box may
 	#- not be accessible via the keyboard (if the keyboard is USB)
-- 
cgit v1.2.1