[Catalyst-commits] r9547 - in trunk/Catalyst-Log-Log4perl: . lib/Catalyst/Log

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-03-21 21:06:19 +0000 (Sat, 21 Mar 2009)
New Revision: 9547

Modified:
   trunk/Catalyst-Log-Log4perl/Changes
   trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm
Log:
Checking in changes prior to tagging of version 1.03.  Changelog diff is:

Index: Changes
===================================================================
--- Changes	(revision 9530)
+++ Changes	(working copy)
@@ -1,5 +1,9 @@
 Revision history for Catalyst::Log::Log4perl
 
+1.03 Sat Mar 21 20:52:20 GMT 2009
+  - Fix to work correctly with Log::Dispatch::Email::MailSend, which
+    is recommended in the documentation (Sebastian Willert)
+
 1.02 Tue Mar 10 12:56:06 GMT 2009
   - Remove dependency on parent.pm from the new tests.
 


Modified: trunk/Catalyst-Log-Log4perl/Changes
===================================================================
--- trunk/Catalyst-Log-Log4perl/Changes	2009-03-21 20:39:52 UTC (rev 9546)
+++ trunk/Catalyst-Log-Log4perl/Changes	2009-03-21 21:06:19 UTC (rev 9547)
@@ -1,5 +1,9 @@
 Revision history for Catalyst::Log::Log4perl
 
+1.03 Sat Mar 21 20:52:20 GMT 2009
+  - Fix to work correctly with Log::Dispatch::Email::MailSend, which
+    is recommended in the documentation (Sebastian Willert)
+
 1.02 Tue Mar 10 12:56:06 GMT 2009
   - Remove dependency on parent.pm from the new tests.
 

Modified: trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm
===================================================================
--- trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm	2009-03-21 20:39:52 UTC (rev 9546)
+++ trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm	2009-03-21 21:06:19 UTC (rev 9547)
@@ -69,7 +69,7 @@
 use Params::Validate;
 use Data::Dump;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 {
     my @levels = qw[ debug info warn error fatal ];
@@ -214,6 +214,9 @@
 sub _flush {
     my ($self) = @_;
 
+    local $SIG{CHLD} = 'DEFAULT'; # Some log backends spawn processes, and
+                                  # don't play nicely unless we do this.
+
     my @stack = @{ $self->{log4perl_stack} };
     $self->{log4perl_stack} = [];
     if ( !$self->{autoflush} and $self->{abort} ) {