From 7cacc169b89f3d3ec7f7489f90b849bb9e19bb33 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 18 Mar 2005 19:35:16 +0000
Subject: (parse_file) do not horribly die

---
 perl-install/standalone/logdrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone')

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..
-- 
cgit v1.2.1