[libhttp-entity-parser-perl] 01/03: make read buf size configurable

[gregor herrmann]

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

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

commit 1142fd15e92294236b36a5b95e90c75ceee64fe5
Author: Masahiro Nagano <kazeburo at gmail.com>
Date:   Tue Nov 17 10:22:50 2015 +0900

    make read buf size configurable
---
 META.json                 | 5 +++--
 eg/bench.pl               | 2 +-
 lib/HTTP/Entity/Parser.pm | 6 ++++--
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/META.json b/META.json
index f51d087..db5493a 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Masahiro Nagano <kazeburo at gmail.com>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Minilla/v2.4.1, CPAN::Meta::Converter version 2.141170",
+   "generated_by" : "Minilla/v2.4.1, CPAN::Meta::Converter version 2.150005",
    "license" : [
       "perl_5"
    ],
@@ -80,5 +80,6 @@
    "version" : "0.13",
    "x_contributors" : [
       "moznion <moznion at gmail.com>"
-   ]
+   ],
+   "x_serialization_backend" : "JSON::PP version 2.27203"
 }
diff --git a/eg/bench.pl b/eg/bench.pl
index 4f1b092..46fb68a 100644
--- a/eg/bench.pl
+++ b/eg/bench.pl
@@ -29,7 +29,7 @@ for my $content ($content1, $content2, $content3) {
         'http_body' => sub {
             open my $input, '<', \$content;
             my $body   = HTTP::Body->new( 'application/x-www-form-urlencoded', length($content) );
-            $input->read( my $buffer, 8192);
+            $input->read( my $buffer, 16384);
             $body->add($buffer);
             $body->param;
         }
diff --git a/lib/HTTP/Entity/Parser.pm b/lib/HTTP/Entity/Parser.pm
index ff81544..be049c5 100644
--- a/lib/HTTP/Entity/Parser.pm
+++ b/lib/HTTP/Entity/Parser.pm
@@ -8,6 +8,8 @@ use Module::Load;
 
 our $VERSION = "0.13";
 
+our $READ_BUF_SIZE = 16384;
+
 our %LOADED;
 our @DEFAULT_PARSER = qw/
     OctetStream
@@ -69,7 +71,7 @@ sub parse {
     if ( my $cl = $env->{CONTENT_LENGTH} ) {
         my $spin = 0;
         while ($cl > 0) {
-            $input->read(my $chunk, $cl < 8192 ? $cl : 8192);
+            $input->read(my $chunk, $cl < $READ_BUF_SIZE ? $cl : $READ_BUF_SIZE);
             my $read = length $chunk;
             $cl -= $read;
             $parser->add($chunk);
@@ -83,7 +85,7 @@ sub parse {
         my $chunk_buffer = '';
         my $length;
         DECHUNK: while(1) {
-            $input->read(my $chunk, 8192);
+            $input->read(my $chunk, $READ_BUF_SIZE);
             $chunk_buffer .= $chunk;
             while ( $chunk_buffer =~ s/^(([0-9a-fA-F]+).*\015\012)// ) {
                 my $trailer   = $1;

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