diff options
| author | dsomero <xgizzmo@slackbuilds.org> | 2011-04-10 13:30:06 -0400 |
|---|---|---|
| committer | Robby Workman <rworkman@slackbuilds.org> | 2011-04-11 00:10:58 -0500 |
| commit | 422df92bd666700bd5ac51ff2a4205721359e40f (patch) | |
| tree | c557f200ffde46cf9a6796f20eaec188c2ce7d2a /perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch | |
| parent | a1bf72c0c035200806022b852379eac76947b5d0 (diff) | |
| download | slackbuilds-422df92bd666700bd5ac51ff2a4205721359e40f.tar.gz | |
perl/perl-SOAP-Lite: Added (SOAP::Lite module)
Signed-off-by: dsomero <xgizzmo@slackbuilds.org>
Diffstat (limited to 'perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch')
| -rw-r--r-- | perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch b/perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch new file mode 100644 index 0000000000..85289fcada --- /dev/null +++ b/perl/perl-SOAP-Lite/SOAP-Lite-0.712_sysread.patch @@ -0,0 +1,38 @@ +From 8f49c0e970261f59bc043a8104a9a730ec69dcf4 Mon Sep 17 00:00:00 2001 +From: Christian Ruppert <idl0r@gentoo.org> +Date: Wed, 23 Mar 2011 18:04:19 +0100 +Subject: [PATCH] Use read() instead of sysread() when using mod_perl + +https://rt.cpan.org/Public/Bug/Display.html?id=58538 +--- + lib/SOAP/Transport/HTTP.pm | 14 +++++++++++--- + 1 files changed, 11 insertions(+), 3 deletions(-) + +diff --git a/lib/SOAP/Transport/HTTP.pm b/lib/SOAP/Transport/HTTP.pm +index f16b990..57ebbf3 100644 +--- a/lib/SOAP/Transport/HTTP.pm ++++ b/lib/SOAP/Transport/HTTP.pm +@@ -566,9 +566,17 @@ sub handle { + if ( !$chunked ) { + my $buffer; + binmode(STDIN); +- while ( sysread( STDIN, $buffer, $length ) ) { +- $content .= $buffer; +- last if ( length($content) >= $length ); ++ if ( defined($ENV{"MOD_PERL"}) ) { ++ while ( read( STDIN, $buffer, $length ) ) { ++ $content .= $buffer; ++ last if ( length($content) >= $length ); ++ } ++ } ++ else { ++ while ( sysread( STDIN, $buffer, $length ) ) { ++ $content .= $buffer; ++ last if ( length($content) >= $length ); ++ } + } + } + +-- +1.7.3.4 + |