From b8f39362b29f3b2f4a34d3b4b24c05edc9612854 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 22 May 2000 07:29:50 +0000
Subject: /p is back for transit

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

(limited to 'parse.y')

diff --git a/parse.y b/parse.y
index 9603ec9169..8c6348804a 100644
--- a/parse.y
+++ b/parse.y
@@ -1434,7 +1434,7 @@ cases		: opt_else
 exc_list	: args
 		| none
 
-exc_var		: kIN lhs
+exc_var		: ':' lhs
 		    {
 			$$ = $2;
 		    }
@@ -2257,7 +2257,8 @@ parse_regx(term, paren)
 		    options |= RE_OPTION_EXTENDED;
 		    break;
 		  case 'p':	/* /p is obsolete, works as /m */
-		    yyerror("/p option is obsolete; use /m\n\tnote: /m does not change ^, $ behavior");
+		    rb_warn("/p option is obsolete; use /m\n\tnote: /m does not change ^, $ behavior");
+		    options |= RE_OPTION_POSIXLINE;
 		    break;
 		  case 'm':
 		    options |= RE_OPTION_MULTILINE;
@@ -2266,16 +2267,16 @@ parse_regx(term, paren)
 		    once = 1;
 		    break;
 		  case 'n':
-		    kcode = 8;
+		    kcode = 16;
 		    break;
 		  case 'e':
-		    kcode = 16;
+		    kcode = 32;
 		    break;
 		  case 's':
-		    kcode = 24;
+		    kcode = 48;
 		    break;
 		  case 'u':
-		    kcode = 32;
+		    kcode = 64;
 		    break;
 		  default:
 		    pushback(c);
@@ -4654,7 +4655,7 @@ rb_intern(name)
     const char *name;
 {
     static ID last_id = LAST_TOKEN;
-    int id;
+    ID id;
     int last;
 
     if (st_lookup(sym_tbl, name, &id))
-- 
cgit v1.2.3