Re-instate the use of gv_stashpvn_flags(), and the correct non-boolean argument.
Nicholas Clark [Sat, 24 Oct 2009 11:22:01 +0000 (12:22 +0100)]
This restores the change of 9bde8eb087a2c05d4c8b0394a59d28a09fe5f529.

toke.c

diff --git a/toke.c b/toke.c
index dbac16f..6cb33c1 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8052,10 +8052,11 @@ S_pending_ident(pTHX)
     pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, newSVpvn(PL_tokenbuf + 1,
                                                      tokenbuf_len - 1));
     pl_yylval.opval->op_private = OPpCONST_ENTERED;
-    gv_fetchpv(PL_tokenbuf+1, PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) : TRUE,
-               ((PL_tokenbuf[0] == '$') ? SVt_PV
-                : (PL_tokenbuf[0] == '@') ? SVt_PVAV
-                : SVt_PVHV));
+    gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1,
+                    PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) : GV_ADD,
+                    ((PL_tokenbuf[0] == '$') ? SVt_PV
+                     : (PL_tokenbuf[0] == '@') ? SVt_PVAV
+                     : SVt_PVHV));
     return WORD;
 }