summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-02 05:06:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-02 05:06:00 +0000
commit5133691b574b4cca3f930475b2e05c091162c3f9 (patch)
tree9f8cdfd0b50ca6cf48defc5886ac1bac9877c957 /perl-install/standalone/logdrake
parentc7257c127b5b9b412f5ed1171ad1c138ec4207b5 (diff)
downloaddrakx-backup-do-not-use-5133691b574b4cca3f930475b2e05c091162c3f9.tar
drakx-backup-do-not-use-5133691b574b4cca3f930475b2e05c091162c3f9.tar.gz
drakx-backup-do-not-use-5133691b574b4cca3f930475b2e05c091162c3f9.tar.bz2
drakx-backup-do-not-use-5133691b574b4cca3f930475b2e05c091162c3f9.tar.xz
drakx-backup-do-not-use-5133691b574b4cca3f930475b2e05c091162c3f9.zip
perl_checker cleanup
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index de563c262..748cb208c 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -207,6 +207,8 @@ my $timer;
my @logs;
+my $F;
+
sub parse_file {
my ($file, $descr) = @_;
@@ -273,14 +275,14 @@ sub parse_file {
$win_pb->destroy if !$::isEmbedded || !$isExplain;
if ($isTail) {
- close F;
- open F, $file or die "E: $!";
+ close $F;
+ open $F, $file or die "E: $!";
local $_;
- while (<F>) {}; #to prevent to output the file twice..
+ while (<$F>) {}; #to prevent to output the file twice..
# $log_text->set_point($log_text->get_length());
$timer ||= Glib::Timeout->add(1000, sub {
- logcolorize($_) while <F>;
- seek F, 0, 1;
+ logcolorize($_) while <$F>;
+ seek $F, 0, 1;
});
}
insert_text_n_scroll();