diff options
| -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.. |