* re.c (re_warn): defined to restore warnings for /[a-c-e]/, etc.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@15532 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 10 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index eecaab057..c7cede049 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Feb 18 11:51:19 2008  Tanaka Akira  <akr@fsij.org>
+
+	* re.c (re_warn): defined to restore warnings for /[a-c-e]/, etc.
+
 Mon Feb 18 10:17:42 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/pty/lib/expect.rb (IO#expect): check if peer is closed.
diff --git a/re.c b/re.c
index e7dfd62dd..b7c74e0d0 100644
--- a/re.c
+++ b/re.c
@@ -3151,6 +3151,10 @@ rb_reg_s_last_match(int argc, VALUE *argv)
     return match_getter();
 }
 
+static void
+re_warn(const char* s) {
+    rb_warn("%s" ,s);
+}
 
 /*
  *  Document-class: Regexp
@@ -3169,6 +3173,8 @@ Init_Regexp(void)
 
     onigenc_set_default_caseconv_table((UChar*)casetable);
     onigenc_set_default_encoding(ONIG_ENCODING_ASCII);
+    onig_set_warn_func(re_warn);
+    onig_set_verb_warn_func(re_warn);
 
     rb_define_virtual_variable("$~", match_getter, match_setter);
     rb_define_virtual_variable("$&", last_match_getter, 0);