diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/isdn.pm | 1 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index d73339f08..23c5e24e1 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -103,7 +103,6 @@ sub isdn_read_config { #$isdn->{description} = ''; #$isdn->{vendor} = ''; #$isdn->{passwd2} = ''; - $isdn; } my $file = "$ENV{SHARE_PATH}/ldetect-lst/isdn.db"; diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 221a1352c..063111220 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -318,7 +318,7 @@ sub real_main { detect($netc->{autodetect}, 'modem'); $netc->{isdntype} = 'isdn_external'; $netcnx->{isdn_external}{device} = network::modem::first_modem($netc); - $netcnx->{isdn_external} = isdn_read_config($netcnx->{isdn_external}); + isdn_read_config($netcnx->{isdn_external}); $netcnx->{isdn_external}{special_command} = 'AT&F&O2B40'; require network::modem; $modem = $netcnx->{isdn_external}; @@ -334,7 +334,7 @@ sub real_main { $isdn->{description} =~ s/\|/ -- /; } - $netcnx->{isdn_internal} = isdn_read_config($netcnx->{isdn_internal}); + isdn_read_config($netcnx->{isdn_internal}); return "isdn_protocol"; }, }, |