diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/adsl.pm | 3 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index b1c5fe82a..eba319c6b 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -6,7 +6,6 @@ use network::tools; use network::ethernet; use modules; use vars qw(@ISA @EXPORT); -use MDK::Common::Globals "network", qw($in); @ISA = qw(Exporter); @EXPORT = qw(adsl_conf_backend); @@ -94,7 +93,7 @@ sub adsl_detect() { } sub adsl_conf_backend { - my ($adsl, $netc, $adsl_device, $adsl_type, $o_netcnx) = @_; + my ($in, $adsl, $netc, $adsl_device, $adsl_type, $o_netcnx) = @_; # FIXME: should not be needed: defined $o_netcnx and $netc->{adsltype} = $o_netcnx->{type}; $netc->{adsltype} ||= "adsl_$adsl_type"; diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index c9e385388..c4de05e26 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -703,7 +703,7 @@ If you don't know, choose 'use pppoe'"), ], }, post => sub { - network::adsl::adsl_conf_backend($netcnx, $netc, $ntf_name, $adsl_type); #FIXME + network::adsl::adsl_conf_backend($in, $netcnx, $netc, $ntf_name, $adsl_type); #FIXME $handle_multiple_cnx->(); }, }, |