From e93ca98dd5aad191b20c0da0b86f21ad5e12dcd7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 28 Nov 2002 01:08:19 +0000 Subject: perl_checker adaptations --- perl-install/network/adsl.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network/adsl.pm') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 35b5bcd34..d47874460 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -47,10 +47,10 @@ If you don't know, choose 'use pppoe'"), $l) or return; if ($type =~ /Sagem/) { $in->do_pkgs->install(qw(rp-pppoe adiusbadsl)); $netcnx->{type} = "adsl_pppoe"; - $netcnx->{"adsl_pppoe"} = {}; + $netcnx->{adsl_pppoe} = {}; modules::add_alias('ADIModem', 'adiusbadsl'); $netc->{$_} = 'ADIModem' foreach qw(NET_DEVICE NET_INTERFACE); - adsl_conf($netcnx->{"adsl_pppoe"}, $netc, $intf, $type) or goto conf_adsl_step1; + adsl_conf($netcnx->{adsl_pppoe}, $netc, $intf, $type) or goto conf_adsl_step1; } if ($type eq 'dhcp') { $in->do_pkgs->install(qw(dhcpcd)); -- cgit v1.2.1