[svn:parrot] r46990 - trunk/runtime/parrot/library/LWP

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue May 25 12:04:01 2010
New Revision: 46990
URL: https://trac.parrot.org/parrot/changeset/46990

Log:
[LWP] refactor _parse_response_content

Modified:
   trunk/runtime/parrot/library/LWP/Protocol.pir

Modified: trunk/runtime/parrot/library/LWP/Protocol.pir
==============================================================================
--- trunk/runtime/parrot/library/LWP/Protocol.pir	Tue May 25 09:27:21 2010	(r46989)
+++ trunk/runtime/parrot/library/LWP/Protocol.pir	Tue May 25 12:04:01 2010	(r46990)
@@ -415,18 +415,16 @@
     $I0 = index str, "\r\n\r\n"
     if $I0 < 0 goto L1
     $I0 += 4
-    $S0 = substr str, $I0
-    $P0 = box $S0
-    setattribute response, 'content', $P0
     goto L2
   L1:
     $I0 = index str, "\n\n"
-    if $I0 < 0 goto L1
+    if $I0 < 0 goto L3
     $I0 += 2
+  L2:
     $S0 = substr str, $I0
     $P0 = box $S0
     setattribute response, 'content', $P0
-  L2:
+  L3:
 .end
 
 =item request