Hello community,
here is the log from the commit of package perl-HTTP-Body for openSUSE:Factory checked in at 2013-12-11 11:31:50
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Body (Old)
and /work/SRC/openSUSE:Factory/.perl-HTTP-Body.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Body"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-HTTP-Body/perl-HTTP-Body.changes 2013-06-06 12:20:32.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-HTTP-Body.new/perl-HTTP-Body.changes 2013-12-11 11:31:52.000000000 +0100
@@ -1,0 +2,9 @@
+Mon Dec 9 11:18:02 UTC 2013 - coolo@suse.com
+
+- updated to 1.19 (includes also changelog for old releases)
+ - Release for cleanup of dzil
+ - Added configurable basename regexp, test added with fixed regexp for next release
+ (Torsten Raudssus [GETTY])
+ - Added .gitignore
+
+-------------------------------------------------------------------
@@ -5 +14,2 @@
-- updated to 1.17, no changelog
+- updated to 1.17
+ - Added support for application/json (Gareth Kirwan [GBJK])
@@ -10 +20,2 @@
-- updated to 1.15, no changelog
+- updated to 1.15
+ - Added missing requirement (Torsten Raudssus [GETTY])
Old:
----
HTTP-Body-1.17.tar.gz
New:
----
HTTP-Body-1.19.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTTP-Body.spec ++++++
--- /var/tmp/diff_new_pack.Hj6lpK/_old 2013-12-11 11:31:52.000000000 +0100
+++ /var/tmp/diff_new_pack.Hj6lpK/_new 2013-12-11 11:31:52.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-HTTP-Body
-Version: 1.17
+Version: 1.19
Release: 0
%define cpan_name HTTP-Body
Summary: HTTP Body Parser
@@ -72,6 +72,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes LICENSE README
+%doc Changes LICENSE README scripts
%changelog
++++++ HTTP-Body-1.17.tar.gz -> HTTP-Body-1.19.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/Changes new/HTTP-Body-1.19/Changes
--- old/HTTP-Body-1.17/Changes 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/Changes 2013-12-06 16:07:25.000000000 +0100
@@ -1,5 +1,19 @@
This file documents the revision history for Perl extension HTTP::Body.
+1.19 2013-12-06 10:07:24 America/New_York
+ - Release for cleanup of dzil
+
+1.18 2013-12-06 10:05:33 America/New_York
+ - Added configurable basename regexp, test added with fixed regexp for next release
+ (Torsten Raudssus [GETTY])
+ - Added .gitignore
+
+1.16 Wed, 3 Oct 2012 15:18:47 CET
+ - Added support for application/json (Gareth Kirwan [GBJK])
+
+1.15 Mon, 5 Dec 2011 02:59:02 CET
+ - Added missing requirement (Torsten Raudssus [GETTY])
+
1.14 Tue 26 Oct 2010 19:42:00 CET
- removed benchmark test data and benchmark script for release (Torsten Raudssus [GETTY])
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/LICENSE new/HTTP-Body-1.19/LICENSE
--- old/HTTP-Body-1.17/LICENSE 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/LICENSE 2013-12-06 16:07:25.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2012 by Christian Hansen.
+This software is copyright (c) 2013 by Christian Hansen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,21 +12,22 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2012 by Christian Hansen.
+This software is Copyright (c) 2013 by Christian Hansen.
This is free software, licensed under:
The GNU General Public License, Version 1, February 1989
- GNU GENERAL PUBLIC LICENSE
- Version 1, February 1989
+ GNU GENERAL PUBLIC LICENSE
+ Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA
+ 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
- Preamble
+ Preamble
The license agreements of most software companies try to keep users
at the mercy of those companies. By contrast, our General Public
@@ -67,7 +68,7 @@
The precise terms and conditions for copying, distribution and
modification follow.
- GNU GENERAL PUBLIC LICENSE
+ GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any program or other work which
@@ -185,7 +186,7 @@
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
- NO WARRANTY
+ NO WARRANTY
9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
@@ -207,9 +208,9 @@
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
- END OF TERMS AND CONDITIONS
+ END OF TERMS AND CONDITIONS
- Appendix: How to Apply These Terms to Your New Programs
+ Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
@@ -235,8 +236,9 @@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
+
Also add information on how to contact you by electronic and paper mail.
@@ -270,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2012 by Christian Hansen.
+This software is Copyright (c) 2013 by Christian Hansen.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/MANIFEST new/HTTP-Body-1.19/MANIFEST
--- old/HTTP-Body-1.17/MANIFEST 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/MANIFEST 2013-12-06 16:07:25.000000000 +0100
@@ -22,6 +22,7 @@
t/06octetstream.t
t/07xforms.t
t/08multipart-suffix.t
+t/09rt88342.t
t/data/multipart/001-content.dat
t/data/multipart/001-headers.pml
t/data/multipart/001-results.pml
@@ -63,6 +64,8 @@
t/data/multipart/013-results.pml
t/data/multipart/014-content.dat
t/data/multipart/014-headers.pml
+t/data/multipart/015-content.dat
+t/data/multipart/015-headers.pml
t/data/octetstream/001-content.dat
t/data/octetstream/001-headers.pml
t/data/octetstream/001-results.dat
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/META.yml new/HTTP-Body-1.19/META.yml
--- old/HTTP-Body-1.17/META.yml 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/META.yml 2013-12-06 16:07:25.000000000 +0100
@@ -11,7 +11,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300016, CPAN::Meta::Converter version 2.120630'
+generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.132830'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,6 +24,6 @@
HTTP::Headers: 0
IO::File: 1.14
resources:
- X_mailing_list: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev
- repository: https://dev.catalystframework.org/repos/Catalyst/trunk/HTTP-Body/
-version: 1.17
+ Mailing_list: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev
+ repository: git://git.shadowcat.co.uk/catagits/HTTP-Body.git
+version: 1.19
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/Makefile.PL new/HTTP-Body-1.19/Makefile.PL
--- old/HTTP-Body-1.17/Makefile.PL 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/Makefile.PL 2013-12-06 16:07:25.000000000 +0100
@@ -11,10 +11,7 @@
my %WriteMakefileArgs = (
"ABSTRACT" => "HTTP Body Parser",
"AUTHOR" => "Christian Hansen, C, Sebastian Riedel, C, Andy Grundman, C, Torsten Raudssus, C",
- "BUILD_REQUIRES" => {
- "Test::Deep" => 0,
- "Test::More" => "0.86"
- },
+ "BUILD_REQUIRES" => {},
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => "6.30"
},
@@ -29,24 +26,32 @@
"HTTP::Headers" => 0,
"IO::File" => "1.14"
},
- "VERSION" => "1.17",
+ "TEST_REQUIRES" => {
+ "Test::Deep" => 0,
+ "Test::More" => "0.86"
+ },
+ "VERSION" => "1.19",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+my %FallbackPrereqs = (
+ "Carp" => 0,
+ "Digest::MD5" => 0,
+ "File::Temp" => "0.14",
+ "HTTP::Headers" => 0,
+ "IO::File" => "1.14",
+ "Test::Deep" => 0,
+ "Test::More" => "0.86"
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/README new/HTTP-Body-1.19/README
--- old/HTTP-Body-1.17/README 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/README 2013-12-06 16:07:25.000000000 +0100
@@ -1,11 +1,11 @@
This archive contains the distribution HTTP-Body,
-version 1.17:
+version 1.19:
HTTP Body Parser
-This software is copyright (c) 2012 by Christian Hansen.
+This software is copyright (c) 2013 by Christian Hansen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/dist.ini new/HTTP-Body-1.19/dist.ini
--- old/HTTP-Body-1.17/dist.ini 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/dist.ini 2013-12-06 16:07:25.000000000 +0100
@@ -1,5 +1,4 @@
name = HTTP-Body
-version = 1.17
author = Christian Hansen, C
author = Sebastian Riedel, C
author = Andy Grundman, C
@@ -10,6 +9,9 @@
[@Basic]
[PkgVersion]
+[@Git]
+[Git::NextVersion]
+[NextRelease]
[Prereqs]
Carp = 0
@@ -27,7 +29,7 @@
filename = scripts/benchmark.pl
[MetaResources]
-repository.web = http://dev.catalystframework.org/repos/Catalyst/trunk/HTTP-Body/
-repository.url = https://dev.catalystframework.org/repos/Catalyst/trunk/HTTP-Body/
-repository.type = svn
+repository.web = http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits/HTTP-Body.git
+repository.url = git://git.shadowcat.co.uk/catagits/HTTP-Body.git
+repository.type = git
x_mailing_list = http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body/MultiPart.pm new/HTTP-Body-1.19/lib/HTTP/Body/MultiPart.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body/MultiPart.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body/MultiPart.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body::MultiPart;
{
- $HTTP::Body::MultiPart::VERSION = '1.17';
+ $HTTP::Body::MultiPart::VERSION = '1.19';
}
use strict;
@@ -258,6 +258,9 @@
=cut
+our $basename_regexp = qr/[^.]+(\.[^\\\/]+)$/;
+#our $basename_regexp = qr/(\.\w+(?:\.\w+)*)$/;
+
sub handler {
my ( $self, $part ) = @_;
@@ -275,7 +278,7 @@
if ( $filename ne "" ) {
my $basename = (File::Spec->splitpath($filename))[2];
- my $suffix = $basename =~ /[^.]+(\.[^\\\/]+)$/ ? $1 : q{};
+ my $suffix = $basename =~ $basename_regexp ? $1 : q{};
my $fh = File::Temp->new( UNLINK => 0, DIR => $self->tmpdir, SUFFIX => $suffix );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body/OctetStream.pm new/HTTP-Body-1.19/lib/HTTP/Body/OctetStream.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body/OctetStream.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body/OctetStream.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body::OctetStream;
{
- $HTTP::Body::OctetStream::VERSION = '1.17';
+ $HTTP::Body::OctetStream::VERSION = '1.19';
}
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body/UrlEncoded.pm new/HTTP-Body-1.19/lib/HTTP/Body/UrlEncoded.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body/UrlEncoded.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body/UrlEncoded.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body::UrlEncoded;
{
- $HTTP::Body::UrlEncoded::VERSION = '1.17';
+ $HTTP::Body::UrlEncoded::VERSION = '1.19';
}
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body/XForms.pm new/HTTP-Body-1.19/lib/HTTP/Body/XForms.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body/XForms.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body/XForms.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body::XForms;
{
- $HTTP::Body::XForms::VERSION = '1.17';
+ $HTTP::Body::XForms::VERSION = '1.19';
}
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body/XFormsMultipart.pm new/HTTP-Body-1.19/lib/HTTP/Body/XFormsMultipart.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body/XFormsMultipart.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body/XFormsMultipart.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body::XFormsMultipart;
{
- $HTTP::Body::XFormsMultipart::VERSION = '1.17';
+ $HTTP::Body::XFormsMultipart::VERSION = '1.19';
}
use strict;
@@ -33,7 +33,7 @@
=item init
-This function is overrided to detect the start part of the
+This function is overridden to detect the start part of the
multipart/related post.
=cut
@@ -63,7 +63,7 @@
=item handler
-This function is overrided to differ the start part, which should be
+This function is overridden to differ the start part, which should be
set as the XForms:Model param if its content type is application/xml.
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/lib/HTTP/Body.pm new/HTTP-Body-1.19/lib/HTTP/Body.pm
--- old/HTTP-Body-1.17/lib/HTTP/Body.pm 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/lib/HTTP/Body.pm 2013-12-06 16:07:25.000000000 +0100
@@ -1,6 +1,6 @@
package HTTP::Body;
{
- $HTTP::Body::VERSION = '1.17';
+ $HTTP::Body::VERSION = '1.19';
}
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/t/08multipart-suffix.t new/HTTP-Body-1.19/t/08multipart-suffix.t
--- old/HTTP-Body-1.17/t/08multipart-suffix.t 2012-10-04 00:02:14.000000000 +0200
+++ new/HTTP-Body-1.19/t/08multipart-suffix.t 2013-12-06 16:07:25.000000000 +0100
@@ -24,7 +24,7 @@
{
my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );
like(
- $file, qr/\.pl$/,
+ $file, qr/^.{10}\.pl$/,
'tempname preserves .pl suffix'
);
}
@@ -32,7 +32,7 @@
{
my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload4}{tempname} );
unlike(
- $file, qr/\..+$/,
+ $file, qr/^.{10}\..+$/,
'tempname for upload4 has no suffix'
);
}
@@ -45,7 +45,7 @@
{
my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );
like(
- $file, qr/\.pl$/,
+ $file, qr/^.{10}\.pl$/,
'tempname preserves .pl suffix with Windows filename'
);
}
@@ -58,7 +58,7 @@
{
my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload}{tempname} );
like(
- $file, qr/\.foo\.txt$/,
+ $file, qr/^.{10}\.foo\.txt$/,
'tempname preserves .foo.txt suffix'
);
}
@@ -66,7 +66,7 @@
{
my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );
like(
- $file, qr/\.txt$/,
+ $file, qr/^.{10}\.txt$/,
'tempname preserves .txt suffix when dir name has .'
);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/t/09rt88342.t new/HTTP-Body-1.19/t/09rt88342.t
--- old/HTTP-Body-1.17/t/09rt88342.t 1970-01-01 01:00:00.000000000 +0100
+++ new/HTTP-Body-1.19/t/09rt88342.t 2013-12-06 16:07:25.000000000 +0100
@@ -0,0 +1,70 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 3;
+use Test::Deep;
+
+use Cwd;
+use HTTP::Body;
+use File::Spec::Functions;
+use IO::File;
+use PAML;
+use File::Temp qw/ tempdir /;
+
+my $path = catdir( getcwd(), 't', 'data', 'multipart' );
+
+{
+ $HTTP::Body::MultiPart::basename_regexp = qr/(\.\w+(?:\.\w+)*)$/;
+
+ my $uploads = uploads_for('015');
+
+ {
+ my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload}{tempname} );
+ like(
+ $file, qr/^.{10}\.tar\.gz\.Z$/,
+ 'tempname preserves .tar.gz.Z suffix'
+ );
+ }
+
+ {
+ my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );
+ like(
+ $file, qr/^.{10}\.png$/,
+ 'tempname preserves .png suffix'
+ );
+ }
+
+ {
+ my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload3}{tempname} );
+ like(
+ $file, qr/^.{10}\.txt$/,
+ 'tempname preserves .txt suffix'
+ );
+ }
+
+}
+
+sub uploads_for {
+ my $number = shift;
+
+ my $headers = PAML::LoadFile( catfile( $path, "$number-headers.pml" ) );
+ my $content = IO::File->new( catfile( $path, "$number-content.dat" ) );
+ my $body = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
+ my $tempdir = tempdir( 'XXXXXXX', CLEANUP => 1, DIR => File::Spec->tmpdir() );
+ $body->tmpdir($tempdir);
+
+ binmode $content, ':raw';
+
+ while ( $content->read( my $buffer, 1024 ) ) {
+ $body->add($buffer);
+ }
+
+ $body->cleanup(1);
+
+ return $body->upload;
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/t/data/multipart/015-content.dat new/HTTP-Body-1.19/t/data/multipart/015-content.dat
--- old/HTTP-Body-1.17/t/data/multipart/015-content.dat 1970-01-01 01:00:00.000000000 +0100
+++ new/HTTP-Body-1.19/t/data/multipart/015-content.dat 2013-12-06 16:07:25.000000000 +0100
@@ -0,0 +1,19 @@
+------------0xKhTmLbOuNdArY
+Content-Disposition: form-data; name="upload"; filename="xx xx.xx xx.tar.gz.Z"
+Content-Type: text/plain
+
+Some random junk
+
+------------0xKhTmLbOuNdArY
+Content-Disposition: form-data; name="upload2"; filename="2013-06-19 at 11.37.56 PM.png"
+Content-Type: text/plain
+
+Some random junk
+
+------------0xKhTmLbOuNdArY
+Content-Disposition: form-data; name="upload3"; filename="C:\Documents\foo bar\bar baz.txt"
+Content-Type: text/plain
+
+blah blah
+
+------------0xKhTmLbOuNdArY--
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.17/t/data/multipart/015-headers.pml new/HTTP-Body-1.19/t/data/multipart/015-headers.pml
--- old/HTTP-Body-1.17/t/data/multipart/015-headers.pml 1970-01-01 01:00:00.000000000 +0100
+++ new/HTTP-Body-1.19/t/data/multipart/015-headers.pml 2013-12-06 16:07:25.000000000 +0100
@@ -0,0 +1,5 @@
+{
+ "User-Agent" => "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/312.1 (KHTML, like Gecko) Safari/312",
+ "Content-Length" => 517,
+ "Content-Type" => "multipart/form-data; boundary=----------0xKhTmLbOuNdArY"
+}
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org