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/network/netconnect.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 35ba42fc3..8277672ce 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -78,7 +78,7 @@ sub detect {
     my $modem = {};
     require network::modem;
     network::modem->import;
-    my (@pci_modems, $modem) = detect_devices::getModem; pop @pci_modems;
+    my ($modem, @pci_modems) = detect_devices::getModem; pop @pci_modems;
     $modem->{device} and $auto_detect->{modem} = $modem->{device};
     show_pci_modems(@pci_modems) if @pci_modems;
 }
-- 
cgit v1.2.1