[libhttp-entity-parser-perl] 09/11: use y///

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to tag 0.01
in repository libhttp-entity-parser-perl.

commit 91f6bcccc9ddb6d7dbcd430fce1f9a63efac7366
Author: Masahiro Nagano <kazeburo at gmail.com>
Date:   Wed Feb 5 10:37:08 2014 +0900

    use y///
---
 lib/HTTP/Entity/Parser/UrlEncoded.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/HTTP/Entity/Parser/UrlEncoded.pm b/lib/HTTP/Entity/Parser/UrlEncoded.pm
index 7745d42..c601c4d 100644
--- a/lib/HTTP/Entity/Parser/UrlEncoded.pm
+++ b/lib/HTTP/Entity/Parser/UrlEncoded.pm
@@ -30,13 +30,13 @@ sub finalize {
     my $self = shift;
     my @params;
     for my $pair ( split( /[&;] ?/, $self->{buffer}, -1 ) ) {
+        $pair =~ y/\+/\x20/;
         my ($key, $val) = split /=/, $pair, 2;
         for ($key, $val) {
             if ( ! defined $_ ) { 
                 push @params, '';
                 next;
             }
-            s/\+/\x20/gs;
             s/$DECODE/$DecodeMap{$1}/gs;
             push @params, $_;
         }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhttp-entity-parser-perl.git