This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv.c: gv_init_pvn now uses newCONSTSUB_flags.
authorBrian Fraser <fraserbn@gmail.com>
Wed, 6 Jul 2011 06:03:15 +0000 (03:03 -0300)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:06 +0000 (13:01 -0700)
gv.c

diff --git a/gv.c b/gv.c
index 56c2b82..91d88db 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -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));