From e0e3d15f12d795ff00a7926283fbee81f7f7a5cc Mon Sep 17 00:00:00 2001
From: naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 11 Oct 2009 01:06:30 +0000
Subject: [PATCH] * regparse.c (fetch_token_in_cc): warn when \p is not  
 followed by property name.

* regparse.c (fetch_token): ditto.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@25296 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog  | 7 +++++++
 regparse.c | 6 ++++++
 2 files changed, 13 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index e015c148b0..b9cfd9473a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Sun Oct 11 10:04:35 2009  NARUSE, Yui  <naruse@ruby-lang.org>
+
+	* regparse.c (fetch_token_in_cc): warn when \p is not
+	  followed by property name.
+
+	* regparse.c (fetch_token): ditto.
+
 Sun Oct 11 09:44:46 2009  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* regerror.c (onig_vsnprintf_with_pattern): added.
diff --git a/regparse.c b/regparse.c
index 0a6bf199c1..0cc9a62e34 100644
--- a/regparse.c
+++ b/regparse.c
@@ -3069,6 +3069,9 @@ fetch_token_in_cc(OnigToken* tok, UChar** src, UChar* end, ScanEnv* env)
 	    PUNFETCH;
 	}
       }
+      else {
+	  onig_syntax_warn(env, "invalid Unicode Property \\%c", c);
+      }
       break;
 
     case 'x':
@@ -3634,6 +3637,9 @@ fetch_token(OnigToken* tok, UChar** src, UChar* end, ScanEnv* env)
 	    PUNFETCH;
 	}
       }
+      else {
+	  onig_syntax_warn(env, "invalid Unicode Property \\%c", c);
+      }
       break;
 
     default: