Restore gv_fetchmeth to perlapi

3 files changed, 9 insertions, 0 deletions

diff --git a/embed.fnc b/embed.fnc
index adf1c6d361..2f7c51e96c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -437,6 +437,8 @@ Ap	|void	|gv_efullname4	|NN SV* sv|NN const GV* gv|NULLOK const char* prefix|boo
 Ap	|GV*	|gv_fetchfile	|NN const char* name
 Ap	|GV*	|gv_fetchfile_flags|NN const char *const name|const STRLEN len\
 				|const U32 flags
+Amd	|GV*	|gv_fetchmeth	|NULLOK HV* stash|NN const char* name \
+				|STRLEN len|I32 level
 Apd	|GV*	|gv_fetchmeth_sv	|NULLOK HV* stash|NN SV* namesv|I32 level|U32 flags
 Apd	|GV*	|gv_fetchmeth_pv	|NULLOK HV* stash|NN const char* name \
                                         |I32 level|U32 flags
diff --git a/gv.c b/gv.c
index 243f16e9d4..9c3fdd5547 100644
--- a/gv.c
+++ b/gv.c
@@ -555,6 +555,10 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
 }
 
 /*
+=for apidoc gv_fetchmeth
+
+Like L</gv_fetchmeth_pvn>, but lacks a flags parameter.
+
 =for apidoc gv_fetchmeth_sv
 
 Exactly like L</gv_fetchmeth_pvn>, but takes the name string in the form
diff --git a/proto.h b/proto.h
index 121e6a9278..fc84a559eb 100644
--- a/proto.h
+++ b/proto.h
@@ -1192,6 +1192,9 @@ PERL_CALLCONV GV*	Perl_gv_fetchfile_flags(pTHX_ const char *const name, const ST
 #define PERL_ARGS_ASSERT_GV_FETCHFILE_FLAGS	\
 	assert(name)
 
+/* PERL_CALLCONV GV*	gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
+			__attribute__nonnull__(pTHX_2); */
+
 PERL_CALLCONV GV*	Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
 			__attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_GV_FETCHMETH_AUTOLOAD	\