[Catalyst-commits] r6713 - in trunk/Catalyst-Runtime: . lib lib/Catalyst

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-08-22 17:32:49 +0100 (Wed, 22 Aug 2007)
New Revision: 6713

Modified:
   trunk/Catalyst-Runtime/Changes
   trunk/Catalyst-Runtime/lib/Catalyst.pm
   trunk/Catalyst-Runtime/lib/Catalyst/Engine.pm
   trunk/Catalyst-Runtime/lib/Catalyst/Runtime.pm
Log:
Fixed bug in HTTP engine where writes could fail with 'Resource temporarily unavailable'

Modified: trunk/Catalyst-Runtime/Changes
===================================================================
--- trunk/Catalyst-Runtime/Changes	2007-08-22 16:31:23 UTC (rev 6712)
+++ trunk/Catalyst-Runtime/Changes	2007-08-22 16:32:49 UTC (rev 6713)
@@ -1,5 +1,9 @@
 e This file documents the revision history for Perl extension Catalyst.
 
+5.7011
+        - Fixed bug in HTTP engine where writes could fail with
+          'Resource temporarily unavailable'.
+
 5.7010  2007-08-22 07:41:00
         - Resource forks in 5.7009
 

Modified: trunk/Catalyst-Runtime/lib/Catalyst/Engine.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Engine.pm	2007-08-22 16:31:23 UTC (rev 6712)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Engine.pm	2007-08-22 16:32:49 UTC (rev 6713)
@@ -625,6 +625,11 @@
     my $len   = length($buffer);
     my $wrote = syswrite STDOUT, $buffer;
     
+    if ( !defined $wrote && $! == EWOULDBLOCK ) {
+        # Unable to write on the first try, will retry in the loop below
+        $wrote = 0;
+    }
+    
     if ( defined $wrote && $wrote < $len ) {
         # We didn't write the whole buffer
         while (1) {

Modified: trunk/Catalyst-Runtime/lib/Catalyst/Runtime.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Runtime.pm	2007-08-22 16:31:23 UTC (rev 6712)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Runtime.pm	2007-08-22 16:32:49 UTC (rev 6713)
@@ -7,7 +7,7 @@
 
 # Remember to update this in Catalyst as well!
 
-our $VERSION='5.7010';
+our $VERSION='5.7011';
 
 =head1 NAME
 

Modified: trunk/Catalyst-Runtime/lib/Catalyst.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-08-22 16:31:23 UTC (rev 6712)
+++ trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-08-22 16:32:49 UTC (rev 6713)
@@ -63,7 +63,7 @@
 
 # Remember to update this in Catalyst::Runtime as well!
 
-our $VERSION = '5.7010';
+our $VERSION = '5.7011';
 
 sub import {
     my ( $class, @arguments ) = @_;