patch for 1.10

[catagits/HTTP-Body.git] / lib / HTTP / Body / XFormsMultipart.pm

diff --git a/lib/HTTP/Body/XFormsMultipart.pm b/lib/HTTP/Body/XFormsMultipart.pm
index 20a3693..66aff7b 100644 (file)
--- a/lib/HTTP/Body/XFormsMultipart.pm
+++ b/lib/HTTP/Body/XFormsMultipart.pm
@@ -74,6 +74,9 @@ sub handler {
     
     if ( $contentid eq $self->start ) {
         $part->{name} = 'XForms:Model';
+        if ($part->{done}) {
+            $self->body($part->{data});
+        }
     }
     elsif ( defined $contentid ) {
         $part->{name}     = $contentid;