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

fperrad at svn.parrot.org fperrad at svn.parrot.org
Thu Apr 1 13:20:41 UTC 2010


Author: fperrad
Date: Thu Apr  1 13:20:41 2010
New Revision: 45373
URL: https://trac.parrot.org/parrot/changeset/45373

Log:
[distutils] missing part of r45370

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 13:08:50 2010	(r45372)
+++ trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 13:20:41 2010	(r45373)
@@ -4173,11 +4173,7 @@
     unless $P1 goto L1
     bin = shift $P1
     pbc = $P0[bin]
-    $I0 = length pbc
-    $I0 -= 4
-    $S0 = substr pbc, 0, $I0
-    $S1 = 'installable_' . $S0
-    $S1 .= exe
+    $S1 = _mk_path_installable(pbc, exe)
     $S2 = bin . exe
     $I0 = newer($S2, $S1)
     if $I0 goto L2


More information about the parrot-commits mailing list