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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fd99bb377a3671d990fd357b52cfe5b19de1e9c;p=p5sagit%2Fp5-mst-13.2.git

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