[svn:parrot] r41324 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Sep 17 19:35:23 2009
New Revision: 41324
URL: https://trac.parrot.org/parrot/changeset/41324

Log:
[core] patch to Parrot_load_language from TT #1007 with a short comment

Modified:
   trunk/src/packfile.c

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Thu Sep 17 15:32:11 2009	(r41323)
+++ trunk/src/packfile.c	Thu Sep 17 19:35:23 2009	(r41324)
@@ -4806,9 +4806,13 @@
             wo_ext, path);
 
     /* Add the include and dynext paths to the global search */
+
+    /* Get the base path of the located module */
     parrot_split_path_ext(interp, path, &found_path, &found_ext);
     name_length = Parrot_str_length(interp, lang_name);
-    found_path = Parrot_str_substr(interp, found_path, -name_length, name_length, NULL, 0);
+    found_path = Parrot_str_substr(interp, found_path, 0,
+            Parrot_str_length(interp, found_path)-name_length, NULL, 0);
+
     Parrot_lib_add_path(interp, Parrot_str_append(interp, found_path, CONST_STRING(interp, "include/")),
             PARROT_LIB_PATH_INCLUDE);
     Parrot_lib_add_path(interp, Parrot_str_append(interp, found_path, CONST_STRING(interp, "dynext/")),