diff options
| -rwxr-xr-x | perl-install/standalone/logdrake | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index d36a751d2..637dda400 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -276,7 +276,7 @@ sub parse_file { $win_pb->destroy if !$::isEmbedded || !$isExplain; if ($isTail) { - close $F; + close $F if $F; open $F, $file or die "E: $!"; local $_; while (<$F>) {} #to prevent to output the file twice.. |