This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore gv_fetchmeth to perlapi
authorFather Chrysostomos <sprout@cpan.org>
Tue, 20 Sep 2011 22:13:59 +0000 (15:13 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:00:58 +0000 (13:00 -0700)
embed.fnc
gv.c
proto.h

index adf1c6d..2f7c51e 100644 (file)
--- 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 243f16e..9c3fdd5 100644 (file)
--- 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 121e6a9..fc84a55 100644 (file)
--- 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 \