work around dots in lib paths for lib loading

git-svn-id: https://svn.parrot.org/parrot/trunk@10987 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Jan 8, 2006 · 5e70769 · 5e70769
1 parent fe0f100
commit 5e70769
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/library.c b/src/library.c
@@ -395,6 +395,11 @@ parrot_split_path_ext(Interp* interpreter, STRING *in,
     if (pos_sl == -1)
 	pos_sl = CHARSET_RINDEX(interpreter, in, slash2, len);
     pos_dot = CHARSET_RINDEX(interpreter, in, dot, len);
+
+    /* XXX directory parrot-0.4.1 or such */
+    if (pos_dot != -1 && isdigit( ((char*)in->strstart)[pos_dot+1]))
+        pos_dot = -1;
+
     ++pos_dot;
     ++pos_sl;
     if (pos_sl && pos_dot ) {