[Catalyst-commits] r11192 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-08-21 20:55:25 +0000 (Fri, 21 Aug 2009)
New Revision: 11192

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm
Log:
DOH! do more than one read, if necessary.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm	2009-08-21 20:29:07 UTC (rev 11191)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm	2009-08-21 20:55:25 UTC (rev 11192)
@@ -50,7 +50,7 @@
     if ( blessed($body) && $body->can('read') or ref($body) eq 'GLOB' ) {
         my $got;
         do {
-            read $body, my ($buffer), $CHUNKSIZE;
+            $got = read $body, my ($buffer), $CHUNKSIZE;
             last unless $self->write( $c, $buffer );
         } while $got > 0;