From c54495aa9155ed0e423d50f79ab95ad997668328 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Mar 2003 11:10:51 +0000 Subject: this is perl, not python ;p --- perl-install/network/isdn.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install/network/isdn.pm') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 3bb656894..1408e1587 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -41,11 +41,8 @@ We recommand the light configuration. $netc->{isdntype} = 'isdn_internal'; $netcnx->{isdn_internal} = isdn_read_config($isdn); $netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach 'description', 'vendor', 'id', 'driver', 'card_type', 'type', 'is_light'; - if (defined $netc->{autodetect}{isdn}{id}) { - $netcnx->{isdn_internal}{is_light} = 1; - } else { - $netcnx->{isdn_internal}{is_light} = $netc->{autodetect}{isdn}{is_light}; - } + $netcnx->{isdn_internal}{is_light} = + defined $netc->{autodetect}{isdn}{id} ? 1 : $netc->{autodetect}{isdn}{is_light}; isdn_detect($netcnx->{isdn_internal}, $netc) or return; } else { $netc->{isdntype} = 'isdn_external'; -- cgit v1.2.1