From 697a45b196c606147997372c20d14c6b2eccdda4 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 5 Jan 2011 20:03:28 +0000
Subject: * dln.c (init_funcname_len): ignore rest from first dot.  
 [ruby-dev:41774]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@30464 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 dln.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'dln.c')

diff --git a/dln.c b/dln.c
index 9267f11..961592d 100644
--- a/dln.c
+++ b/dln.c
@@ -126,12 +126,12 @@ init_funcname_len(const char **file)
 
     /* Load the file as an object one */
     for (base = p; *p; p++) { /* Find position of last '/' */
-	if (*p == '.') dot = p;
-	if (isdirsep(*p)) base = p+1;
+	if (*p == '.' && !dot) dot = p;
+	if (isdirsep(*p)) base = p+1, dot = NULL;
     }
     *file = base;
     /* Delete suffix if it exists */
-    return (dot && dot > base ? dot : p) - base;
+    return (dot ? dot : p) - base;
 }
 
 static const char funcname_prefix[sizeof(FUNCNAME_PREFIX) - 1] = FUNCNAME_PREFIX;
-- 
cgit v1.1