diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2013-12-23 02:11:29 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-12-23 08:25:08 -0800 |
| commit | e8f91c91cc7c3a4a35c08d16f350eabe4852cdf4 (patch) | |
| tree | 5b7a8a4380ed25dc73dffc08887a74d0794e7925 /gv.c | |
| parent | 8c74b41425572faeb638f1269025b59d0785794f (diff) | |
| download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |