diff options
author | Olivier Blin <oblin@mandriva.org> | 2005-04-05 19:06:10 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2005-04-05 19:06:10 +0000 |
commit | f1e6270f9a85a92fcc9ac95ea646f7d956daebea (patch) | |
tree | c9d3da76ab951086e33c072314e9e0754beff8c8 /perl-install | |
parent | c282c03b5521589411138fde3369834989eb4ae8 (diff) | |
download | drakx-backup-do-not-use-f1e6270f9a85a92fcc9ac95ea646f7d956daebea.tar drakx-backup-do-not-use-f1e6270f9a85a92fcc9ac95ea646f7d956daebea.tar.gz drakx-backup-do-not-use-f1e6270f9a85a92fcc9ac95ea646f7d956daebea.tar.bz2 drakx-backup-do-not-use-f1e6270f9a85a92fcc9ac95ea646f7d956daebea.tar.xz drakx-backup-do-not-use-f1e6270f9a85a92fcc9ac95ea646f7d956daebea.zip |
perl_checker, indent
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/net_monitor | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index f82ed8b3c..aee34fc5e 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -191,7 +191,7 @@ sub connection() { $ct_tag = Glib::Timeout->add(1000, sub { my ($sec, $min, $hour) = gmtime(time() - $c_time); my $e = sprintf("%02d:%02d:%02d", $hour, $min, $sec); - $label_ct->set_label($e); 1 }) + $label_ct->set_label($e); 1 }); } my $nb_point = 1; $first = 1; @@ -358,13 +358,13 @@ sub scale_tranmistted($) { $_[0] * $scale_t } sub scale_received($) { $_[0] * $scale_r } sub update() { - if (!$during_connection) { + if (!$during_connection) { my $isconnect = test_connected(0); if ($isconnect != -2) { $isconnected = $isconnect; # save current state $isconnect = test_connected(1); # start new test } - }; + } my @intfs = get_val(); # get values from /proc file system foreach (@intfs) { |