Correct another gv_fetchpv() - it takes a bitmask of flags, not simply

TRUE/FALSE.

p4raw-id: //depot/perl@27456

diff --git a/gv.c b/gv.c
index d02f741..9f64aeb 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1347,7 +1347,7 @@ Perl_newGVgen(pTHX_ const char *pack)
 {
     dVAR;
     return gv_fetchpv(Perl_form(aTHX_ "%s::_GEN_%ld", pack, (long)PL_gensym++),
-                     TRUE, SVt_PVGV);
+                     GV_ADD, SVt_PVGV);
 }
 
 /* hopefully this is only called on local symbol table entries */