diff options
author | naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2009-10-11 20:52:51 +0000 |
---|---|---|
committer | naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2009-10-11 20:52:51 +0000 |
commit | 67e11229ecf10efeb1b7eb15b114bc783453b8a6 (patch) | |
tree | 73f41518d36e9ada702018209b4c4a0b9c6cade8 /regparse.c | |
parent | 5e4d54a98dc8f61e4de1e24da74407751d99e437 (diff) |
* regparse.c (fetch_token): warn invalid back reference
and subexp call. (\k and \g).
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@25305 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'regparse.c')
-rw-r--r-- | regparse.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/regparse.c b/regparse.c index 0cc9a62e34..9f46b15cd4 100644 --- a/regparse.c +++ b/regparse.c @@ -3585,8 +3585,10 @@ fetch_token(OnigToken* tok, UChar** src, UChar* end, ScanEnv* env) } } } - else - PUNFETCH; + else { + PUNFETCH; + onig_syntax_warn(env, "invalid back reference"); + } } break; #endif @@ -3608,8 +3610,10 @@ fetch_token(OnigToken* tok, UChar** src, UChar* end, ScanEnv* env) tok->u.call.name_end = name_end; tok->u.call.gnum = gnum; } - else - PUNFETCH; + else { + onig_syntax_warn(env, "invalid subexp call"); + PUNFETCH; + } } break; #endif |