From 4e6e854f88ed6e450ec4a09d9985434b7198e58f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 16 Apr 2009 15:29:41 +0000
Subject: (getModem) enable to skip (slow) detecting serial modems

---
 perl-install/detect_devices.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 643f3a376..3cf6609cc 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -561,9 +561,10 @@ sub getSerialModem {
     @modems;
 }
 
+our $detect_serial_modem = 1;
 sub getModem {
     my ($modules_conf) = @_;
-    getSerialModem($modules_conf, {}), get_winmodems();
+    ($detect_serial_modem ? getSerialModem($modules_conf, {}) : ()), get_winmodems();
 }
 
 sub get_winmodems() {
-- 
cgit v1.2.1