summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 11:59:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 11:59:03 +0000
commitaaff6dff3ac0e9b19810fc1bc836f30c19918e5d (patch)
tree24d563bb50162681d48011773d41f501c720d888 /perl-install/network/tools.pm
parent8eb45d87d70be8b1802f5f6c79cf53b3099b0596 (diff)
downloaddrakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.gz
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.bz2
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.xz
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.zip
make new perl_checker happy
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 33f3bb6be..c2a1b28cd 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -46,12 +46,12 @@ sub ask_connect_now {
my $w = $in->wait_message('', _("Testing your connection..."), 1);
connect_backend();
my $s = 30;
- $type =~ /modem/ and $s=50;
- $type =~ /adsl/ and $s=35;
- $type =~ /isdn/ and $s=20;
+ $type =~ /modem/ and $s = 50;
+ $type =~ /adsl/ and $s = 35;
+ $type =~ /isdn/ and $s = 20;
sleep $s;
my $netc = {};
- $up=connected();
+ $up = connected();
}
my $m = $up ? (_("The system is now connected to Internet.") .
if_($::isInstall, _("For security reason, it will be disconnected now.")) ) :