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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Nov 30 18:54:52 2009
New Revision: 42827
URL: https://trac.parrot.org/parrot/changeset/42827

Log:
[distutils] fix compatibily Windows & *nix

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Mon Nov 30 18:46:44 2009	(r42826)
+++ trunk/runtime/parrot/library/distutils.pir	Mon Nov 30 18:54:52 2009	(r42827)
@@ -2582,8 +2582,8 @@
     unless $P0 goto L2
     $S0 = shift $P0
     .local string cmd                   #
-    cmd = "perl -e 'for (<" . $S0       # refactoring needed
-    cmd .= ">) { print $_, qq{\n};}'"   # without perl
+    cmd = 'perl -e "for (<' . $S0       # refactoring needed
+    cmd .= '>) { print; print qq{\n};}"'# without perl
     $P1 = open cmd, 'rp'                #
   L3:
     $S0 = $P1.'readline'()