diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-02 05:06:00 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-02 05:06:00 +0000 |
| commit | 5133691b574b4cca3f930475b2e05c091162c3f9 (patch) | |
| tree | 9f8cdfd0b50ca6cf48defc5886ac1bac9877c957 /perl-install | |
| parent | c7257c127b5b9b412f5ed1171ad1c138ec4207b5 (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/logdrake | 12 |
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(); |