diff --git a/ChangeLog b/ChangeLog
index a6fa48787f..41a9ebe4e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Nov 29 19:19:32 2008  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* regparse.c (is_invalid_quantifier_target): Perl and old Ruby
+	  accepts quantifier on anchors.  [ruby-core:20161]
+
 Sat Nov 29 18:28:57 2008  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* ext/socket/socket.c (sock_getaddrinfo): should have updated for
diff --git a/regparse.c b/regparse.c
index c7b42eaf74..8a02966def 100644
--- a/regparse.c
+++ b/regparse.c
@@ -2112,6 +2112,7 @@ conv_backslash_value(int c, ScanEnv* env)
   return c;
 }
 
+#if 0				/* no invalid quantifier */
 static int
 is_invalid_quantifier_target(Node* node)
 {
@@ -2143,6 +2144,9 @@ is_invalid_quantifier_target(Node* node)
   }
   return 0;
 }
+#else
+#define is_invalid_quantifier_target(node) 0
+#endif
 
 /* ?:0, *:1, +:2, ??:3, *?:4, +?:5 */
 static int