From 08393f98d1e047a52d57c4e23568148ea9807184 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Feb 2004 13:15:43 +0000 Subject: remove pseudo global variables use from adsl_conf_backend() --- perl-install/network/adsl.pm | 3 +-- 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->(); }, }, -- cgit v1.2.1