diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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))); } |