• Home
  • History
  • Annotate
  • Line#
  • Navigate
  • Raw
  • Download
  • only in /macosx-10.10/CPANInternal-159.1/PatchFiles/Log-Log4perl-1.40/lib/Log/Log4perl/Appender/
1--- Log-Log4perl-1.40/lib/Log/Log4perl/Appender/File.pm
2+++ Log-Log4perl-1.40/lib/Log/Log4perl/Appender/File.pm
3162c162
4<     if(defined $self->{fh}) {
5---
6>     if(defined $self->{fh} && defined fileno $self->{fh}) {
7255,257c255,256
8<     if ($self->{fh}) {
9<         my $fh = $self->{fh};
10<         close $fh;
11---
12>     if(defined $self->{fh} && defined fileno $self->{fh}) {
13>         close $self->{fh};
14