optimize method name lookup

[perl5.git] / perlapi.c

diff --git a/perlapi.c b/perlapi.c
index 3e7e0ab..ff5c859 100755 (executable)
--- a/perlapi.c
+++ b/perlapi.c
@@ -4958,6 +4958,13 @@ Perl_ck_match(pTHXo_ OP *o)
     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
 }
 
     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
 }
 

+#undef  Perl_ck_method
+OP *
+Perl_ck_method(pTHXo_ OP *o)
+{
+    return ((CPerlObj*)pPerl)->Perl_ck_method(o);
+}
+

 #undef  Perl_ck_null
 OP *
 Perl_ck_null(pTHXo_ OP *o)
 #undef  Perl_ck_null
 OP *
 Perl_ck_null(pTHXo_ OP *o)


@@ -6372,6 +6379,13 @@ Perl_pp_method(pTHXo)
     return ((CPerlObj*)pPerl)->Perl_pp_method();
 }
 
     return ((CPerlObj*)pPerl)->Perl_pp_method();
 }
 

+#undef  Perl_pp_method_named
+OP *
+Perl_pp_method_named(pTHXo)
+{
+    return ((CPerlObj*)pPerl)->Perl_pp_method_named();
+}
+

 #undef  Perl_pp_mkdir
 OP *
 Perl_pp_mkdir(pTHXo)
 #undef  Perl_pp_mkdir
 OP *
 Perl_pp_mkdir(pTHXo)