[Catalyst-commits] r12998 - trunk/HTTP-Body/lib/HTTP/Body

[purge at dev.catalyst.perl.org]

Author: purge
Date: 2010-03-02 23:03:19 +0000 (Tue, 02 Mar 2010)
New Revision: 12998

Modified:
   trunk/HTTP-Body/lib/HTTP/Body/XForms.pm
Log:
fix Xforms buffering check

Modified: trunk/HTTP-Body/lib/HTTP/Body/XForms.pm
===================================================================
--- trunk/HTTP-Body/lib/HTTP/Body/XForms.pm	2010-03-02 20:42:43 UTC (rev 12997)
+++ trunk/HTTP-Body/lib/HTTP/Body/XForms.pm	2010-03-02 23:03:19 UTC (rev 12998)
@@ -35,6 +35,8 @@
 sub spin {
     my $self = shift;
 
+    return unless $self->length == $self->content_length;
+
     $self->body($self->{buffer});
     $self->param( 'XForms:Model', $self->{buffer} );
     $self->{buffer} = '';