summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
commit73c851144720e28b21a491b6250385170db9d752 (patch)
treedcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/network/tools.pm
parent0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff)
downloaddrakx-73c851144720e28b21a491b6250385170db9d752.tar
drakx-73c851144720e28b21a491b6250385170db9d752.tar.gz
drakx-73c851144720e28b21a491b6250385170db9d752.tar.bz2
drakx-73c851144720e28b21a491b6250385170db9d752.tar.xz
drakx-73c851144720e28b21a491b6250385170db9d752.zip
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm16
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));