summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-03-18 19:35:16 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-03-18 19:35:16 +0000
commit7cacc169b89f3d3ec7f7489f90b849bb9e19bb33 (patch)
tree6f6f022b2480d6ac1ad23ed4c459de8aa390d788 /perl-install/standalone
parent2b7e2cebe882c914ee00da9bc75980bda9ecba53 (diff)
downloaddrakx-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/standalone')
-rwxr-xr-xperl-install/standalone/logdrake2
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..