diff options
Diffstat (limited to 'perl-install/network/tools.pm')
| -rw-r--r-- | perl-install/network/tools.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index c7175a0d3..19921b5d0 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -39,7 +39,7 @@ sub unquotify { $$word =~ s/^(['"]?)(.*)\1$/$2/; } -sub read_secret_backend { +sub read_secret_backend() { my $conf; foreach my $i ("pap-secrets", "chap-secrets") { foreach (cat_("$prefix/etc/ppp/$i")) { @@ -102,9 +102,9 @@ Try to reconfigure your connection."); $up; } -sub connect_backend { run_program::rooted($prefix, "$connect_prog &") } +sub connect_backend() { run_program::rooted($prefix, "$connect_prog &") } -sub disconnect_backend { run_program::rooted($prefix, "$disconnect_file &") } +sub disconnect_backend() { run_program::rooted($prefix, "$disconnect_file &") } sub read_providers_backend { my ($file) = @_; map { /(.*?)=>/ } catMaybeCompressed($file) } @@ -141,7 +141,7 @@ sub ask_info2 { 1; } -sub detect_timezone { +sub detect_timezone() { my %tmz2country = ( 'Europe/Paris' => N("France"), 'Europe/Amsterdam' => N("Netherlands"), @@ -170,7 +170,7 @@ sub type2interface { [ lan => 'eth' ]; } -sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 } +sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 } my $kid_pipe; sub connected_bg { @@ -235,7 +235,7 @@ sub test_connected { return $current_connection_status; } -sub connected2 { +sub connected2() { if ($kid_pid = open(my $kid_to_read, "-|")) { #- parent $kid_to_read; @@ -247,10 +247,10 @@ sub connected2 { } } -sub disconnected {} +sub disconnected() {} -sub write_initscript { +sub write_initscript() { $::testing and return; output_with_perm("$prefix/etc/rc.d/init.d/internet", 0755, sprintf(<<'EOF', $connect_file, $connect_file, $disconnect_file, $disconnect_file)); |