From ba6feb1e818d6ff1e1abcf97e312f87e6ac023cb Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 4 Feb 2003 14:59:31 +0000
Subject: fixed small typo.

---
 perl-install/network/adsl.pm | 4 ++--
 1 file 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';
-- 
cgit v1.2.1