optimize method name lookup

[p5sagit/p5-mst-13.2.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index 9f2e517..7246cb6 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -3626,6 +3626,10 @@
 #define Perl_ck_match          pPerl->Perl_ck_match
 #undef  ck_match
 #define ck_match               Perl_ck_match
+#undef  Perl_ck_method
+#define Perl_ck_method         pPerl->Perl_ck_method
+#undef  ck_method
+#define ck_method              Perl_ck_method
 #undef  Perl_ck_null
 #define Perl_ck_null           pPerl->Perl_ck_null
 #undef  ck_null
@@ -4434,6 +4438,10 @@
 #define Perl_pp_method         pPerl->Perl_pp_method
 #undef  pp_method
 #define pp_method              Perl_pp_method
+#undef  Perl_pp_method_named
+#define Perl_pp_method_named   pPerl->Perl_pp_method_named
+#undef  pp_method_named
+#define pp_method_named                Perl_pp_method_named
 #undef  Perl_pp_mkdir
 #define Perl_pp_mkdir          pPerl->Perl_pp_mkdir
 #undef  pp_mkdir