diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-04 07:49:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-04 07:49:39 +0000 |
| commit | e032366577d644b346fcb870d9150fb18b8edc5a (patch) | |
| tree | 8dcae356a15590a4e5f45a11b9fffc3c59bb06e6 /perl-install/standalone | |
| parent | d346b7da18681208f8dbc457100d52b93a1d4884 (diff) | |
| download | drakx-backup-do-not-use-e032366577d644b346fcb870d9150fb18b8edc5a.tar drakx-backup-do-not-use-e032366577d644b346fcb870d9150fb18b8edc5a.tar.gz drakx-backup-do-not-use-e032366577d644b346fcb870d9150fb18b8edc5a.tar.bz2 drakx-backup-do-not-use-e032366577d644b346fcb870d9150fb18b8edc5a.tar.xz drakx-backup-do-not-use-e032366577d644b346fcb870d9150fb18b8edc5a.zip | |
- perl_checker fixes
- ensure only one callback do regular parsing
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/logdrake | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 3984ea162..9ee51926e 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -232,9 +232,11 @@ sub search { } local *F; +my $timer; sub parse_file { - my ($file, $descr) = @_;; + local *F = *F; + my ($file, $descr) = @_; $file =~ s/\.gz$//; my ($pbar, $win_pb); @@ -298,15 +300,13 @@ sub parse_file { local $_; while (<F>) {}; #to prevent to output the file twice.. # $log_text->set_point($log_text->get_length()); - my $timer = Gtk2->timeout_add(1000, \&input_callback); + $timer ||= Gtk2->timeout_add(1000, sub { + logcolorize($_) while <F>; + seek F, 0, 1; + }); } } -sub input_callback { - logcolorize($_) while <F>; - seek F, 0, 1; -} - ########################################################################################## |