Restore newGVgen to perlapi.pod

diff --git a/embed.fnc b/embed.fnc
index 6e16b54..a4b495f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -873,6 +873,7 @@ Apa |OP*    |newAVREF       |NN OP* o
 Apda   |OP*    |newBINOP       |I32 type|I32 flags|NULLOK OP* first|NULLOK OP* last
 Apa    |OP*    |newCVREF       |I32 flags|NULLOK OP* o
 Apda   |OP*    |newGVOP        |I32 type|I32 flags|NN GV* gv
+Am     |GV*    |newGVgen       |NN const char* pack
 Apa    |GV*    |newGVgen_flags |NN const char* pack|U32 flags
 Apa    |OP*    |newGVREF       |I32 type|NULLOK OP* o
 ApaR   |OP*    |newHVREF       |NN OP* o

diff --git a/proto.h b/proto.h
index 048b782..52ec378 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2563,6 +2563,9 @@ PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o)
                        __attribute__malloc__
                        __attribute__warn_unused_result__;
 
+/* PERL_CALLCONV GV*   newGVgen(pTHX_ const char* pack)
+                       __attribute__nonnull__(pTHX_1); */
+
 PERL_CALLCONV GV*      Perl_newGVgen_flags(pTHX_ const char* pack, U32 flags)
                        __attribute__malloc__
                        __attribute__warn_unused_result__