summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-05 19:06:10 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-05 19:06:10 +0000
commitf1e6270f9a85a92fcc9ac95ea646f7d956daebea (patch)
treec9d3da76ab951086e33c072314e9e0754beff8c8 /perl-install
parentc282c03b5521589411138fde3369834989eb4ae8 (diff)
downloaddrakx-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-xperl-install/standalone/net_monitor6
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) {