[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