diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 17:38:36 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:40 -0800 |
commit | 4d48c4e518df52b44e5fa6b805f27b2fc99d7181 (patch) | |
tree | 461b32109125bea7aa27756c86ec2ee49a802b8c /op.c | |
parent | ea9a9e77bcfd0235d72bd7b0fa9a2cdaba4fd790 (diff) | |
download | perl-4d48c4e518df52b44e5fa6b805f27b2fc99d7181.tar.gz |
Use PadnameSV in op.c:newMYSUB
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -7893,7 +7893,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) spot = (CV **)svspot; if (!(PL_parser && PL_parser->error_count)) - move_proto_attr(&proto, &attrs, (GV *)name); + move_proto_attr(&proto, &attrs, (GV *)PadnameSV(name)); if (proto) { assert(proto->op_type == OP_CONST); @@ -7984,7 +7984,8 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) * skipping the prototype check */ if (exists || SvPOK(cv)) - cv_ckproto_len_flags(cv, (GV *)name, ps, ps_len, ps_utf8); + cv_ckproto_len_flags(cv, (GV *)PadnameSV(name), ps, ps_len, + ps_utf8); /* already defined? */ if (exists) { if (S_already_defined(aTHX_ cv,block,NULL,name,&const_sv)) |