Change 30030: One last gv_fetchpv() that should be GV_ADD rather than TRUE.

[Nicholas Clark]

Change 30030 by [EMAIL PROTECTED] on 2007/01/27 14:03:01

        One last gv_fetchpv() that should be GV_ADD rather than TRUE.

Affected files ...

... //depot/perl/toke.c#744 edit

Differences ...

==== //depot/perl/toke.c#744 (text) ====
Index: perl/toke.c
--- perl/toke.c#743~30024~      2007-01-26 16:45:30.000000000 -0800
+++ perl/toke.c 2007-01-27 06:03:01.000000000 -0800
@@ -5533,7 +5533,7 @@
                        }
                    }
                    if (probable_sub) {
-                       gv = gv_fetchpv(PL_tokenbuf, TRUE, SVt_PVCV);
+                       gv = gv_fetchpv(PL_tokenbuf, GV_ADD, SVt_PVCV);
                        op_free(yylval.opval);
                        yylval.opval = newCVREF(0, newGVOP(OP_GV, 0, gv));
                        yylval.opval->op_private |= OPpENTERSUB_NOPAREN;
End of Patch.