r18396 - in /branches/upstream/libhttp-body-perl/current: Changes META.yml lib/HTTP/Body.pm lib/HTTP/Body/XForms.pm lib/HTTP/Body/XFormsMultipart.pm t/data/xforms/001-results.yml t/data/xforms/002-results.yml

[rmayorga-guest at users.alioth.debian.org]

Author: rmayorga-guest
Date: Tue Apr  8 16:01:18 2008
New Revision: 18396

URL: http://svn.debian.org/wsvn/?sc=1&rev=18396
Log:
[svn-upgrade] Integrating new upstream version, libhttp-body-perl (1.03)

Modified:
    branches/upstream/libhttp-body-perl/current/Changes
    branches/upstream/libhttp-body-perl/current/META.yml
    branches/upstream/libhttp-body-perl/current/lib/HTTP/Body.pm
    branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XForms.pm
    branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XFormsMultipart.pm
    branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.yml
    branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.yml

Modified: branches/upstream/libhttp-body-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/Changes?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/Changes (original)
+++ branches/upstream/libhttp-body-perl/current/Changes Tue Apr  8 16:01:18 2008
@@ -1,4 +1,7 @@
 This file documents the revision history for Perl extension HTTP::Body.
+
+1.03    2008-04-07 08:20:00
+        - Set body value for XForms data. (Daniel Ruoso)
 
 1.02    2008-02-27 17:30:00
         - Fixed issue with urlencoded test on Windows.

Modified: branches/upstream/libhttp-body-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/META.yml?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/META.yml (original)
+++ branches/upstream/libhttp-body-perl/current/META.yml Tue Apr  8 16:01:18 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         HTTP-Body
-version:      1.02
+version:      1.03
 version_from: lib/HTTP/Body.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libhttp-body-perl/current/lib/HTTP/Body.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/lib/HTTP/Body.pm?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/lib/HTTP/Body.pm (original)
+++ branches/upstream/libhttp-body-perl/current/lib/HTTP/Body.pm Tue Apr  8 16:01:18 2008
@@ -4,7 +4,7 @@
 
 use Carp       qw[ ];
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 our $TYPES = {
     'application/octet-stream'          => 'HTTP::Body::OctetStream',

Modified: branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XForms.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XForms.pm?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XForms.pm (original)
+++ branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XForms.pm Tue Apr  8 16:01:18 2008
@@ -34,12 +34,12 @@
 
 sub spin {
     my $self = shift;
-    
+
+    $self->body($self->{buffer});
     $self->param( 'XForms:Model', $self->{buffer} );
-    
     $self->{buffer} = '';
     $self->{state}  = 'done';
-    
+
     return $self->SUPER::init();
 }
 

Modified: branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XFormsMultipart.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XFormsMultipart.pm?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XFormsMultipart.pm (original)
+++ branches/upstream/libhttp-body-perl/current/lib/HTTP/Body/XFormsMultipart.pm Tue Apr  8 16:01:18 2008
@@ -74,6 +74,9 @@
     
     if ( $contentid eq $self->start ) {
         $part->{name} = 'XForms:Model';
+        if ($part->{done}) {
+            $self->body($part->{data});
+        }
     }
     elsif ( defined $contentid ) {
         $part->{name}     = $contentid;

Modified: branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.yml?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.yml (original)
+++ branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.yml Tue Apr  8 16:01:18 2008
@@ -1,5 +1,5 @@
 ---
-body: ~
+body: <model><data1>asdfg</data1><data2>asdfg</data2></model>
 start: asdfg at asdfg.com
 param:
   XForms:Model: <model><data1>asdfg</data1><data2>asdfg</data2></model>

Modified: branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.yml?rev=18396&op=diff
==============================================================================
--- branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.yml (original)
+++ branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.yml Tue Apr  8 16:01:18 2008
@@ -1,5 +1,5 @@
 ---
-body: ~
+body: <model><data1>asdfg</data1><data2>asdfg</data2></model>
 param:
   XForms:Model: <model><data1>asdfg</data1><data2>asdfg</data2></model>
 upload: {}