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