[svn:parrot] r46794 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed May 19 17:32:09 2010
New Revision: 46794
URL: https://trac.parrot.org/parrot/changeset/46794

Log:
[distutils] display only the first line sent by Smolder,
ie. "Reported #nnnnn added."

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Wed May 19 15:08:34 2010	(r46793)
+++ trunk/runtime/parrot/library/distutils.pir	Wed May 19 17:32:09 2010	(r46794)
@@ -2161,7 +2161,13 @@
     $I0 = response.'code'()
     unless $I0 == 302 goto L1
     $S0 = response.'content'()
-    say $S0
+    $I0 = index $S0, 'Report'
+    unless $I0 == 0 goto L4
+    $I0 = index $S0, "\n"
+    if $I0 < 0 goto L4
+    $S0 = substr $S0, 0, $I0
+  L4:
+    print $S0
   L1:
 .end