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

fperrad at svn.parrot.org fperrad at svn.parrot.org
Thu Apr 1 12:49:01 UTC 2010


Author: fperrad
Date: Thu Apr  1 12:49:00 2010
New Revision: 45371
URL: https://trac.parrot.org/parrot/changeset/45371

Log:
[distutils] fix _mk_path_installable when subdirectory

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 12:35:22 2010	(r45370)
+++ trunk/runtime/parrot/library/distutils.pir	Thu Apr  1 12:49:00 2010	(r45371)
@@ -1076,11 +1076,15 @@
 .sub '_mk_path_installable' :anon
     .param string pbcname
     .param string exe
-    $I0 = length pbcname
+    $P0 = split '/', pbcname
+    $S0 = $P0[-1]
+    $I0 = length $S0
     $I0 -= 4
-    $S0 = substr pbcname, 0, $I0
+    $S0 = substr $S0, 0, $I0
     $S1 = "installable_" . $S0
     $S1 .= exe
+    $P0[-1] = $S1
+    $S1 = join '/', $P0
     .return ($S1)
 .end
 


More information about the parrot-commits mailing list