diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 08:13:09 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 08:13:09 +0000 |
commit | 734a753d6a3f5fe1479af41aed9ae0e3defb0213 (patch) | |
tree | e0e640d022f950b51359f942a21069ebb2b17df5 /perl-install | |
parent | 76aef5df8655820487dc0eb0ad1e13066f0f33bb (diff) | |
download | drakx-backup-do-not-use-734a753d6a3f5fe1479af41aed9ae0e3defb0213.tar drakx-backup-do-not-use-734a753d6a3f5fe1479af41aed9ae0e3defb0213.tar.gz drakx-backup-do-not-use-734a753d6a3f5fe1479af41aed9ae0e3defb0213.tar.bz2 drakx-backup-do-not-use-734a753d6a3f5fe1479af41aed9ae0e3defb0213.tar.xz drakx-backup-do-not-use-734a753d6a3f5fe1479af41aed9ae0e3defb0213.zip |
fix logdrake behaviour in mcc where logdrake would only log
the first process.
another (rare indeed) case of a bug introduced because perl_checker
wanted us to localize a file handle :-(
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/logdrake | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 6bb2de941..92e1f0d40 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -237,6 +237,8 @@ sub search { gtkflush(); } +local *F; + sub parse_file { my ($file) = @_;#$_[0]; @@ -293,7 +295,7 @@ sub parse_file { $win_pb->destroy(); if ($::isTail) { - local *F; + close F; open F, $file or die "E: $!"; local $_; while (<F>) {}; #to prevent to output the file twice.. |