[svn:parrot] r46727 - trunk/runtime/parrot/library
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Mon May 17 08:42:04 UTC 2010
Author: fperrad
Date: Mon May 17 08:42:03 2010
New Revision: 46727
URL: https://trac.parrot.org/parrot/changeset/46727
Log:
[LWP] fix content without Content-Length
"GET http://fperrad.googlepages.com/home HTTP/1.1" reworks
Modified:
trunk/runtime/parrot/library/LWP.pir
Modified: trunk/runtime/parrot/library/LWP.pir
==============================================================================
--- trunk/runtime/parrot/library/LWP.pir Mon May 17 08:34:26 2010 (r46726)
+++ trunk/runtime/parrot/library/LWP.pir Mon May 17 08:42:03 2010 (r46727)
@@ -771,6 +771,7 @@
.local int header_length, content_length
content_length = 0
L21:
+ ua.'progress'('tick', request)
$S0 = sock.'recv'()
if $S0 == '' goto L22
push buf, $S0
@@ -791,9 +792,7 @@
goto L23
L22:
sock.'close'()
- unless content_length goto L24
self.'_parse_response_content'(response, buf)
- L24:
.return (response)
.end
More information about the parrot-commits
mailing list