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

fperrad at svn.parrot.org fperrad at svn.parrot.org
Thu Apr 1 13:08:50 UTC 2010


Author: fperrad
Date: Thu Apr  1 13:08:50 2010
New Revision: 45372
URL: https://trac.parrot.org/parrot/changeset/45372

Log:
[distutils] EXPERIMENTAL
when install, strip "build/" in path

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 12:49:00 2010	(r45371)
+++ trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 13:08:50 2010	(r45372)
@@ -2575,7 +2575,12 @@
     $I0 = does array, 'array'
     if $I0 goto L1
     $S0 = array
-    $S2 = $S1 . $S0
+    $S3 = $S0
+    $S2 = $S1 . $S3
+    $I0 = index $S0, "build/"
+    unless $I0 == 0 goto L0
+    $S3 = substr $S0, 6
+  L0:
     files[$S2] = $S0
     goto L2
   L1:
@@ -2583,7 +2588,12 @@
   L3:
     unless $P0 goto L2
     $S0 = shift $P0
-    $S2 = $S1 . $S0
+    $S3 = $S0
+    $I0 = index $S0, "build/"
+    unless $I0 == 0 goto L4
+    $S3 = substr $S0, 6
+  L4:
+    $S2 = $S1 . $S3
     files[$S2] = $S0
     goto L3
   L2:


More information about the parrot-commits mailing list