diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
commit | b7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch) | |
tree | 9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/network/tools.pm | |
parent | f47690a41184c9f99a6fbf003b1045c3f4c0220b (diff) | |
download | drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2 drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip |
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r-- | perl-install/network/tools.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index c7f337da4..88cacba9d 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -14,7 +14,7 @@ use MDK::Common::System qw(getVarsFromSh); sub write_cnx_script { my ($netc, $type, $up, $down, $type2) = @_; if ($type) { - $netc->{internet_cnx}{$type}{$_->[0]}=$_->[1] foreach [$connect_file, $up], [$disconnect_file, $down]; + $netc->{internet_cnx}{$type}{$_->[0]} = $_->[1] foreach [$connect_file, $up], [$disconnect_file, $down]; $netc->{internet_cnx}{$type}{type} = $type2; } else { foreach ($connect_file, $disconnect_file) { @@ -36,7 +36,7 @@ sub write_secret_backend { sub ask_connect_now { my ($type) = @_; - $::Wizard_no_previous=1; + $::Wizard_no_previous = 1; #- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1; if ($in->ask_yesorno(N("Internet configuration"), N("Do you want to try to connect to the Internet now?") @@ -58,8 +58,8 @@ sub ask_connect_now { N("The system doesn't seem to be connected to internet. Try to reconfigure your connection."); if ($::isWizard) { - $::Wizard_no_previous=1; - $::Wizard_finished=1; + $::Wizard_no_previous = 1; + $::Wizard_finished = 1; $in->ask_okcancel(N("Network Configuration"), $m, 1); undef $::Wizard_no_previous; undef $::Wizard_finished; @@ -128,7 +128,7 @@ sub detect_timezone { sub type2interface { my ($i) = @_; - $i=~/$_->[0]/ and return $_->[1] foreach [ modem => 'ppp'], + $i =~ /$_->[0]/ and return $_->[1] foreach [ modem => 'ppp'], [ isdn_internal => 'ippp'], [ isdn_external => 'ppp'], [ adsl => 'ppp'], @@ -140,7 +140,7 @@ sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 } my $kid_pipe; sub connected_bg { - local $|=1; + local $| = 1; my ($ref) = @_; if (defined $kid_pipe) { local *F; @@ -169,7 +169,7 @@ my $kid_pid; my $current_connection_status; sub test_connected { - local $|=1; + local $| = 1; my ($cmd) = @_; if (!defined $current_connection_status) { $current_connection_status = -1 } |