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 - [email protected] + +- 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<chansen\@cpan.org>, Sebastian Riedel, C<sri\@cpan.org>, Andy Grundman, C<andy\@hybridized.org>, Torsten Raudssus, C<getty\@cpan.org>", - "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<[email protected]> author = Sebastian Riedel, C<[email protected]> author = Andy Grundman, C<[email protected]> @@ -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: [email protected] For additional commands, e-mail: [email protected]
