1Index: Log-Log4perl-1.40/lib/Log/Log4perl/Appender/File.pm 2=================================================================== 3--- Log-Log4perl-1.40/lib/Log/Log4perl/Appender/File.pm (revision 32190) 4+++ Log-Log4perl-1.40/lib/Log/Log4perl/Appender/File.pm (working copy) 5@@ -254,7 +254,7 @@ 6 7 if ($self->{fh}) { 8 my $fh = $self->{fh}; 9- close $fh; 10+ close $fh if fileno $fh; 11 } 12 } 13 14