diff options
| author | Tony Cook <tony@develop-help.com> | 2013-11-19 16:45:13 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-11-19 16:45:13 +1100 |
| commit | 480127f457b51d8eeba80d83675918c7e6f46095 (patch) | |
| tree | bcea74b43be410f28325c559028778c103aaa1b4 /op.c | |
| parent | 3f0a0d6e4f0d08b11bd4d458216c8382c59283b0 (diff) | |
| download | perl-480127f457b51d8eeba80d83675918c7e6f46095.tar.gz | |
S_already_defined no longer uses its gv parameter, remove it
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; |