This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to tag 0.04
in repository libhttp-entity-parser-perl.
commit 2ab319a3b659771b4867f4d3c8fad71bc80ee140
Author: Masahiro Nagano <kazeb...@gmail.com>
Date: Fri Feb 7 17:03:59 2014 +0900
fix documentation bug about Plack::Request::Upload
---
README.md | 12 ++++++------
lib/HTTP/Entity/Parser.pm | 12 ++++++------
2 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/README.md b/README.md
index 9eac824..7567f58 100644
--- a/README.md
+++ b/README.md
@@ -72,12 +72,12 @@ This module support application/x-www-form-urlencoded,
multipart/form-data and a
use with Plack::Request::Upload
my ( $params, $uploads) = $parser->parse($env);
- my $upload = Hash::MultiValue->new();
- for my $obj ( @$uploads ) {
- my %copy = %$obj;
- $copy{headers} = HTTP::Headers->new(%{$obj->{headers}});
- $upload->add($$copy->{name}, Plack::Request::Upload->new(%copy));
- }
+ my $upload_hmv = Hash::MultiValue->new();
+ while ( my ($k,$v) = splice @$uploads, 0, 2 ) {
+ my %copy = %$v;
+ $copy{headers} = HTTP::Headers::Fast->new(@{$v->{headers}});
+ $upload_hmv->add($k, Plack::Request::Upload->new(%copy));
+ }
# PARSERS
diff --git a/lib/HTTP/Entity/Parser.pm b/lib/HTTP/Entity/Parser.pm
index 70d5dcd..898678b 100644
--- a/lib/HTTP/Entity/Parser.pm
+++ b/lib/HTTP/Entity/Parser.pm
@@ -184,12 +184,12 @@ C<$uploads> is ArrayRef of HashRef.
use with Plack::Request::Upload
my ( $params, $uploads) = $parser->parse($env);
- my $upload = Hash::MultiValue->new();
- for my $obj ( @$uploads ) {
- my %copy = %$obj;
- $copy{headers} = HTTP::Headers->new(%{$obj->{headers}});
- $upload->add($$copy->{name}, Plack::Request::Upload->new(%copy));
- }
+ my $upload_hmv = Hash::MultiValue->new();
+ while ( my ($k,$v) = splice @$uploads, 0, 2 ) {
+ my %copy = %$v;
+ $copy{headers} = HTTP::Headers::Fast->new(@{$v->{headers}});
+ $upload_hmv->add($k, Plack::Request::Upload->new(%copy));
+ }
=back
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libhttp-entity-parser-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
