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 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/network/adsl.pm') 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"; -- cgit v1.2.1