summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-27 08:13:09 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-27 08:13:09 +0000
commit734a753d6a3f5fe1479af41aed9ae0e3defb0213 (patch)
treee0e640d022f950b51359f942a21069ebb2b17df5
parent76aef5df8655820487dc0eb0ad1e13066f0f33bb (diff)
downloaddrakx-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 :-(
-rwxr-xr-xperl-install/standalone/logdrake4
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..