diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-07-12 07:57:25 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-07-12 07:57:25 +0000 |
| commit | 44bb1a7dd54a363571176e985b18b3bd01dbdeaa (patch) | |
| tree | c8d4498b92bbdb7c2d2a1d9919c7426566ce7870 /perl-install/standalone/net_applet | |
| parent | d685a6a5a51d0ed5f39cdf666c396d7406699b77 (diff) | |
| download | drakx-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_applet | 6 |
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; |