From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Mar 2006 23:23:19 +0000 (+0000)
Subject: Correct another gv_fetchpv() - it takes a bitmask of flags, not simply
X-Git-Tag: v5.10.0~4268
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/6fd99bb377a3671d990fd357b52cfe5b19de1e9c

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
--- 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 */