This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct another gv_fetchpv() - it takes a bitmask of flags, not simply
authorNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 23:23:19 +0000 (23:23 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 23:23:19 +0000 (23:23 +0000)
TRUE/FALSE.

p4raw-id: //depot/perl@27456

gv.c

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++),
 {
     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 */
 }
 
 /* hopefully this is only called on local symbol table entries */