diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-03-18 19:35:16 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-03-18 19:35:16 +0000 |
| commit | 7cacc169b89f3d3ec7f7489f90b849bb9e19bb33 (patch) | |
| tree | 6f6f022b2480d6ac1ad23ed4c459de8aa390d788 /perl-install | |
| parent | 2b7e2cebe882c914ee00da9bc75980bda9ecba53 (diff) | |
| download | drakx-7cacc169b89f3d3ec7f7489f90b849bb9e19bb33.tar drakx-7cacc169b89f3d3ec7f7489f90b849bb9e19bb33.tar.gz drakx-7cacc169b89f3d3ec7f7489f90b849bb9e19bb33.tar.bz2 drakx-7cacc169b89f3d3ec7f7489f90b849bb9e19bb33.tar.xz drakx-7cacc169b89f3d3ec7f7489f90b849bb9e19bb33.zip | |
(parse_file) do not horribly die
Diffstat (limited to 'perl-install')
| -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.. |