From 226f266b3f6c8487d9f8c38c55f6e3bc9adc77ad Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 18 Oct 2002 15:37:28 +0000
Subject: remove useless 'pop'

---
 perl-install/network/netconnect.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8277672ce..cd8ccdec0 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -78,14 +78,13 @@ sub detect {
     my $modem = {};
     require network::modem;
     network::modem->import;
-    my ($modem, @pci_modems) = detect_devices::getModem; pop @pci_modems;
+    my ($modem, @pci_modems) = detect_devices::getModem;
     $modem->{device} and $auto_detect->{modem} = $modem->{device};
     show_pci_modems(@pci_modems) if @pci_modems;
 }
 
 sub show_pci_modems {
     my @l = map { ' - ' . $_->{description} } @_;
-    pop @l;
     $in->ask_warn(_("Warning"), _("You have internal winmodem(s) :\n\n%s\n\n Go to http://www.linmodem.org for further information", join ("\n", @l)));
 }
 
-- 
cgit v1.2.1