summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorDaniel Dragan <bulk88@hotmail.com>2013-12-23 02:11:29 -0500
committerFather Chrysostomos <sprout@cpan.org>2013-12-23 08:25:08 -0800
commite8f91c91cc7c3a4a35c08d16f350eabe4852cdf4 (patch)
tree5b7a8a4380ed25dc73dffc08887a74d0794e7925 /gv.c
parent8c74b41425572faeb638f1269025b59d0785794f (diff)
downloadperl-e8f91c91cc7c3a4a35c08d16f350eabe4852cdf4.tar.gz
[perl #115736] fix undocumented param from newATTRSUB_flags
flags param was poorly designed and didn't have a formal api. Replace it with the bool it really is. See #115736 for details.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/gv.c b/gv.c
index 686f20641b..bda30b1a54 100644
--- a/gv.c
+++ b/gv.c
@@ -540,7 +540,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
CvLVALUE_on(cv);
/* newATTRSUB will free the CV and return NULL if we're still
compiling after a syntax error */
- if ((cv = newATTRSUB_flags(
+ if ((cv = newATTRSUB_x(
oldsavestack_ix, (OP *)gv,
NULL,NULL,
coresub_op(
@@ -549,7 +549,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
: newSVpvn(name,len),
code, opnum
),
- 1
+ TRUE
)) != NULL) {
assert(GvCV(gv) == orig_cv);
if (opnum != OP_VEC && opnum != OP_SUBSTR && opnum != OP_POS