diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-06 03:03:15 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:06 -0700 |
| commit | c5540e1cf88a13d2e3c4bd0f68265301c762bc26 (patch) | |
| tree | 1280180ebe42beb9d9f0d6f1239b5dbe9616cf6e /gv.c | |
| parent | f5e296505b07fcaa7aa234e6d40d647e33122503 (diff) | |
| download | perl-c5540e1cf88a13d2e3c4bd0f68265301c762bc26.tar.gz | |
gv.c: gv_init_pvn now uses newCONSTSUB_flags.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -375,7 +375,7 @@ Perl_gv_init_pvn(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, U32 flag name0 = savepvn(name,len); /* newCONSTSUB takes ownership of the reference from us. */ - cv = newCONSTSUB(stash, (name0 ? name0 : name), has_constant); + cv = newCONSTSUB_flags(stash, (name0 ? name0 : name), flags, has_constant); /* In case op.c:S_process_special_blocks stole it: */ if (!GvCV(gv)) GvCV_set(gv, (CV *)SvREFCNT_inc_simple_NN(cv)); |