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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-08-21 21:22:36 +0000 (Fri, 21 Aug 2009)
New Revision: 11193

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm
Log:
Do what we want instead of exiting a sub via last.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm	2009-08-21 20:55:25 UTC (rev 11192)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine.pm	2009-08-21 21:22:36 UTC (rev 11193)
@@ -51,7 +51,7 @@
         my $got;
         do {
             $got = read $body, my ($buffer), $CHUNKSIZE;
-            last unless $self->write( $c, $buffer );
+            $got = 0 unless $self->write( $c, $buffer );
         } while $got > 0;
 
         close $body;