diff options
| -rw-r--r-- | perl-install/network/adsl.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index b8f71af46..324249a5e 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -46,8 +46,8 @@ If you don't know, choose 'use pppoe'"), $l) or return; $type = 'sagem'; $in->do_pkgs->install(qw(adiusbadsl)); $netcnx->{type} = "adsl_$type"; - $netcnx->{adsl_$type} = {}; - adsl_conf($netcnx->{adsl_$type}, $netc, $intf, $type) or goto conf_adsl_step1; + $netcnx->{"adsl_$type"} = {}; + adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1; } if ($type =~ /speedtouch/) { $type = 'speedtouch'; |