From 8d085834abd60e8ca890750352871c7f4151a735 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 18 Oct 2002 13:02:06 +0000
Subject: change dumb return values s/@pci_modems, $serial_modem/$serial_modem,
 @pci_modems/ (thanks to pixel)

---
 perl-install/detect_devices.pm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 812027e16..f7adeeb5d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -370,15 +370,6 @@ sub getCPUs {
     @cpus;
 }
 
-#-AT&F&O2B40
-#- DialString=ATDT0231389595((
-
-#- modem_detect_backend : detects modem on serial ports and fills the infos in $modem : detects only one card
-#- input
-#-  $modem
-#-  $mouse : facultative, hash containing device to exclude not to test mouse port : ( device => /ttyS[0-9]/ )
-#- output:
-#-  $modem->{device} : device where the modem were detected
 sub getSerialModem {
     my ($modem, $mouse) = @_;
     $mouse ||= {};
@@ -405,7 +396,7 @@ sub getModem() {
     my @pci_modems = grep { $_->{driver} eq 'Bad:www.linmodems.org' } probeall(0);
     my $serial_modem = {};
     getSerialModem($serial_modem);
-    @pci_modems, $serial_modem;
+    $serial_modem, @pci_modems;
 }
 
 sub getSpeedtouch {
-- 
cgit v1.2.1