From c2325bdb3a7437ed4373973d11db6007732cc847 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 30 May 2005 07:54:14 +0000 Subject: $netc->{isdntype} is unneeded --- perl-install/network/netconnect.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 24e195b96..8c3cc822c 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -429,11 +429,10 @@ sub real_main { if ($isdn_name eq $my_isdn) { return "isdn_ask"; } elsif ($isdn_name eq N("External ISDN modem")) { - $netcnx->{type} = $netc->{isdntype} = 'isdn_external'; + $netcnx->{type} = 'isdn_external'; return "modem"; } - $netc->{isdntype} = 'isdn_internal'; # FIXME: some of these should be taken from isdn db $netcnx->{isdn_internal} = $isdn = { map { $_ => $isdn_cards{$isdn_name}{$_} } qw(description vendor id card_type driver type mem io io0 io1 irq firmware) }; -- cgit v1.2.1