From 99020d6e50702eb371111d73280eb80b4b29ba5b Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 25 Dec 2000 06:29:27 +0000
Subject: 001225

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1075 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 parse.y | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'parse.y')

diff --git a/parse.y b/parse.y
index ea0e33f609..d1f1a32321 100644
--- a/parse.y
+++ b/parse.y
@@ -3244,9 +3244,11 @@ yylex()
 		    tokadd(c);
 		    seen_e++;
 		    is_float++;
-		    if ((c = nextc()) == '-' || c == '+')
+		    while ((c = nextc()) == '_')
+			seen_uc = 1;
+		    if (c == '-' || c == '+')
 			tokadd(c);
-		    else
+		    else 
 			continue;
 		    break;
 
@@ -3628,7 +3630,12 @@ yylex()
 	    }
 	    else {
 		if (lex_state == EXPR_FNAME) {
-		    if ((c = nextc()) == '=' && !peek('=') && !peek('~')) {
+#if 0
+		    if ((c = nextc()) == '=' && !peek('=') && !peek('~') && !peek('>')) {
+#else
+		    if ((c = nextc()) == '=' && !peek('~') && !peek('>') &&
+			(!peek('=') || lex_p + 1 < lex_pend && lex_p[1] == '>')) {
+#endif
 			result = tIDENTIFIER;
 			tokadd(c);
 		    }
-- 
cgit v1.2.3