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

index 2064b3c..58d9e30 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -444,6 +444,9 @@ Apd |GV*    |gv_fetchmeth_pv        |NULLOK HV* stash|NN const char* name \
                                         |I32 level|U32 flags
 Apd    |GV*    |gv_fetchmeth_pvn       |NULLOK HV* stash|NN const char* name \
                                         |STRLEN len|I32 level|U32 flags
+Amd    |GV*    |gv_fetchmeth_autoload  |NULLOK HV* stash \
+                                       |NN const char* name|STRLEN len \
+                                       |I32 level
 Apd    |GV*    |gv_fetchmeth_sv_autoload       |NULLOK HV* stash|NN SV* namesv|I32 level|U32 flags
 Apd    |GV*    |gv_fetchmeth_pv_autoload       |NULLOK HV* stash|NN const char* name \
                                         |I32 level|U32 flags
diff --git a/gv.c b/gv.c
index 1da1a90..7fcd705 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -775,6 +775,11 @@ Perl_gv_fetchmeth_pvn(pTHX_ HV *stash, const char *name, STRLEN len, I32 level,
 }
 
 /*
+=for apidoc gv_fetchmeth_autoload
+
+This is the old form of L</gv_fetchmeth_pvn_autoload>, which has no flags
+parameter.
+
 =for apidoc gv_fetchmeth_sv_autoload
 
 Exactly like L</gv_fetchmeth_pvn_autoload>, but takes the name string in the form
diff --git a/proto.h b/proto.h
index 1abf972..49aaf99 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1195,6 +1195,9 @@ PERL_CALLCONV GV* Perl_gv_fetchfile_flags(pTHX_ const char *const name, const ST
 /* PERL_CALLCONV GV*   gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
                        __attribute__nonnull__(pTHX_2); */
 
+/* PERL_CALLCONV GV*   gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
+                       __attribute__nonnull__(pTHX_2); */
+
 PERL_CALLCONV GV*      Perl_gv_fetchmeth_pv(pTHX_ HV* stash, const char* name, I32 level, U32 flags)
                        __attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_GV_FETCHMETH_PV       \