From 1b769c0ffdb5cb69a3e665e6df43c8633b92a6f4 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 6 Sep 2001 14:49:05 +0000 Subject: corrected speedtouch --- perl-install/network/tools.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network/tools.pm') diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index efb7f1bed..9fede9a88 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -90,8 +90,8 @@ sub ask_info2 { ] ) or return; if ($netc->{vpivci}) { - foreach (['Netherlands', 8.48], ['France', 8.35], ['Belgium', 8.35], ['Italy', 8.35], ['UK', 0.38]) { - $netc->{vpivci} eq $_->[0] and $netc->{vpivci} = $_->[1] ; + foreach (['Netherlands', '8_48'], ['France', '8_35'], ['Belgium', '8_35'], ['Italy', '8_35'], ['UK', '0_38']) { + $netc->{vpivci} eq $_->[0] and $netc->{vpivci} = $_->[1]; } } 1; -- cgit v1.2.1