Hello community, here is the log from the commit of package perl-HTTP-Body for openSUSE:Factory checked in at 2013-06-06 12:20:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2012-02-16 10:06:57.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-HTTP-Body.new/perl-HTTP-Body.changes 2013-06-06 12:20:32.000000000 +0200 @@ -1,0 +2,6 @@ + +Wed Jun 5 07:24:16 UTC 2013 - [email protected] + +- updated to 1.17, no changelog + +------------------------------------------------------------------- Old: ---- HTTP-Body-1.15.tar.gz New: ---- HTTP-Body-1.17.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTTP-Body.spec ++++++ --- /var/tmp/diff_new_pack.uqadeA/_old 2013-06-06 12:20:33.000000000 +0200 +++ /var/tmp/diff_new_pack.uqadeA/_new 2013-06-06 12:20:33.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-HTTP-Body # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-HTTP-Body -Version: 1.15 +Version: 1.17 Release: 0 %define cpan_name HTTP-Body Summary: HTTP Body Parser @@ -48,8 +48,8 @@ %description HTTP::Body parses chunks of HTTP POST data and supports -application/octet-stream, application/x-www-form-urlencoded, and -multipart/form-data. +application/octet-stream, application/json, +application/x-www-form-urlencoded, and multipart/form-data. Chunked bodies are supported by not passing a length value to new(). @@ -72,6 +72,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README scripts +%doc Changes LICENSE README %changelog ++++++ HTTP-Body-1.15.tar.gz -> HTTP-Body-1.17.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/LICENSE new/HTTP-Body-1.17/LICENSE --- old/HTTP-Body-1.15/LICENSE 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/LICENSE 2012-10-04 00:02:14.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2011 by Christian Hansen. +This software is copyright (c) 2012 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,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2011 by Christian Hansen. +This software is Copyright (c) 2012 by Christian Hansen. This is free software, licensed under: @@ -270,7 +270,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2011 by Christian Hansen. +This software is Copyright (c) 2012 by Christian Hansen. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/META.yml new/HTTP-Body-1.17/META.yml --- old/HTTP-Body-1.15/META.yml 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/META.yml 2012-10-04 00:02:14.000000000 +0200 @@ -11,7 +11,7 @@ configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300003, CPAN::Meta::Converter version 2.112150' +generated_by: 'Dist::Zilla version 4.300016, CPAN::Meta::Converter version 2.120630' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,4 +26,4 @@ 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.15 +version: 1.17 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/Makefile.PL new/HTTP-Body-1.17/Makefile.PL --- old/HTTP-Body-1.15/Makefile.PL 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/Makefile.PL 2012-10-04 00:02:14.000000000 +0200 @@ -29,7 +29,7 @@ "HTTP::Headers" => 0, "IO::File" => "1.14" }, - "VERSION" => "1.15", + "VERSION" => "1.17", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/README new/HTTP-Body-1.17/README --- old/HTTP-Body-1.15/README 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/README 2012-10-04 00:02:14.000000000 +0200 @@ -1,11 +1,11 @@ This archive contains the distribution HTTP-Body, -version 1.15: +version 1.17: HTTP Body Parser -This software is copyright (c) 2011 by Christian Hansen. +This software is copyright (c) 2012 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.15/dist.ini new/HTTP-Body-1.17/dist.ini --- old/HTTP-Body-1.15/dist.ini 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/dist.ini 2012-10-04 00:02:14.000000000 +0200 @@ -1,5 +1,5 @@ name = HTTP-Body -version = 1.15 +version = 1.17 author = Christian Hansen, C<[email protected]> author = Sebastian Riedel, C<[email protected]> author = Andy Grundman, C<[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body/MultiPart.pm new/HTTP-Body-1.17/lib/HTTP/Body/MultiPart.pm --- old/HTTP-Body-1.15/lib/HTTP/Body/MultiPart.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body/MultiPart.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body::MultiPart; { - $HTTP::Body::MultiPart::VERSION = '1.15'; + $HTTP::Body::MultiPart::VERSION = '1.17'; } use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body/OctetStream.pm new/HTTP-Body-1.17/lib/HTTP/Body/OctetStream.pm --- old/HTTP-Body-1.15/lib/HTTP/Body/OctetStream.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body/OctetStream.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body::OctetStream; { - $HTTP::Body::OctetStream::VERSION = '1.15'; + $HTTP::Body::OctetStream::VERSION = '1.17'; } use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body/UrlEncoded.pm new/HTTP-Body-1.17/lib/HTTP/Body/UrlEncoded.pm --- old/HTTP-Body-1.15/lib/HTTP/Body/UrlEncoded.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body/UrlEncoded.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body::UrlEncoded; { - $HTTP::Body::UrlEncoded::VERSION = '1.15'; + $HTTP::Body::UrlEncoded::VERSION = '1.17'; } use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body/XForms.pm new/HTTP-Body-1.17/lib/HTTP/Body/XForms.pm --- old/HTTP-Body-1.15/lib/HTTP/Body/XForms.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body/XForms.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body::XForms; { - $HTTP::Body::XForms::VERSION = '1.15'; + $HTTP::Body::XForms::VERSION = '1.17'; } use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body/XFormsMultipart.pm new/HTTP-Body-1.17/lib/HTTP/Body/XFormsMultipart.pm --- old/HTTP-Body-1.15/lib/HTTP/Body/XFormsMultipart.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body/XFormsMultipart.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body::XFormsMultipart; { - $HTTP::Body::XFormsMultipart::VERSION = '1.15'; + $HTTP::Body::XFormsMultipart::VERSION = '1.17'; } use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Body-1.15/lib/HTTP/Body.pm new/HTTP-Body-1.17/lib/HTTP/Body.pm --- old/HTTP-Body-1.15/lib/HTTP/Body.pm 2011-12-05 03:59:14.000000000 +0100 +++ new/HTTP-Body-1.17/lib/HTTP/Body.pm 2012-10-04 00:02:14.000000000 +0200 @@ -1,6 +1,6 @@ package HTTP::Body; { - $HTTP::Body::VERSION = '1.15'; + $HTTP::Body::VERSION = '1.17'; } use strict; @@ -12,7 +12,8 @@ 'application/x-www-form-urlencoded' => 'HTTP::Body::UrlEncoded', 'multipart/form-data' => 'HTTP::Body::MultiPart', 'multipart/related' => 'HTTP::Body::XFormsMultipart', - 'application/xml' => 'HTTP::Body::XForms' + 'application/xml' => 'HTTP::Body::XForms', + 'application/json' => 'HTTP::Body::OctetStream', }; require HTTP::Body::OctetStream; @@ -58,9 +59,9 @@ =head1 DESCRIPTION -HTTP::Body parses chunks of HTTP POST data and supports -application/octet-stream, application/x-www-form-urlencoded, and -multipart/form-data. +HTTP::Body parses chunks of HTTP POST data and supports +application/octet-stream, application/json, application/x-www-form-urlencoded, +and multipart/form-data. Chunked bodies are supported by not passing a length value to new(). @@ -92,9 +93,12 @@ } my $type; + my $earliest_index; foreach my $supported ( keys %{$TYPES} ) { - if ( index( lc($content_type), $supported ) >= 0 ) { - $type = $supported; + my $index = index( lc($content_type), $supported ); + if ($index >= 0 && (!defined $earliest_index || $index < $earliest_index)) { + $type = $supported; + $earliest_index = $index; } } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
