diff options
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -7199,8 +7199,7 @@ Perl_op_const_sv(pTHX_ const OP *o) static bool S_already_defined(pTHX_ CV *const cv, OP * const block, OP * const o, - PADNAME * const name, SV ** const const_svp, - GV * const gv) + PADNAME * const name, SV ** const const_svp) { assert (cv); assert (o || name); @@ -7375,7 +7374,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) cv_ckproto_len_flags(cv, (GV *)name, ps, ps_len, ps_utf8); /* already defined? */ if (exists) { - if (S_already_defined(aTHX_ cv,block,NULL,name,&const_sv,NULL)) + if (S_already_defined(aTHX_ cv,block,NULL,name,&const_sv)) cv = NULL; else { if (attrs) goto attrs; @@ -7747,7 +7746,7 @@ Perl_newATTRSUB_flags(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, cv_ckproto_len_flags(cv, gv, ps, ps_len, ps_utf8); /* already defined (or promised)? */ if (exists || GvASSUMECV(gv)) { - if (S_already_defined(aTHX_ cv, block, o, NULL, &const_sv, gv)) + if (S_already_defined(aTHX_ cv, block, o, NULL, &const_sv)) cv = NULL; else { if (attrs) goto attrs; |