summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-07-12 07:57:25 +0000
committerOlivier Blin <oblin@mandriva.org>2004-07-12 07:57:25 +0000
commit44bb1a7dd54a363571176e985b18b3bd01dbdeaa (patch)
treec8d4498b92bbdb7c2d2a1d9919c7426566ce7870 /perl-install/standalone/net_applet
parentd685a6a5a51d0ed5f39cdf666c396d7406699b77 (diff)
downloaddrakx-backup-do-not-use-44bb1a7dd54a363571176e985b18b3bd01dbdeaa.tar
drakx-backup-do-not-use-44bb1a7dd54a363571176e985b18b3bd01dbdeaa.tar.gz
drakx-backup-do-not-use-44bb1a7dd54a363571176e985b18b3bd01dbdeaa.tar.bz2
drakx-backup-do-not-use-44bb1a7dd54a363571176e985b18b3bd01dbdeaa.tar.xz
drakx-backup-do-not-use-44bb1a7dd54a363571176e985b18b3bd01dbdeaa.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index bab516fa0..af24320e0 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -95,12 +95,12 @@ sub netMonitor() {
system("/usr/sbin/net_monitor --testing");
checkNetwork()
}
-sub checkNetwork {
+sub checkNetwork() {
my $gatewayconf = '/etc/sysconfig/network';
my %h = getVarsFromSh($gatewayconf);
my $new_md5 = md5file($prog_name);
# print "NEW($newmd5) = OLD($oldmd5)\n"
- my $gd, $addrgd;
+ my ($gd, $addrgd);
if ($h{GATEWAYDEV}) {
$addrgd = getIP($gd = $h{GATEWAYDEV});
} else {
@@ -124,7 +124,7 @@ sub getIP {
my @ip = map { if_(/inet adr:([\d.]+)/, $1) } @lines;
return wantarray() ? @ip : $ip[0];
}
-sub cronNetwork {
+sub cronNetwork() {
$_timeout = Glib::Timeout->add(60*1000, sub {
checkNetwork();
1;