In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/480127f457b51d8eeba80d83675918c7e6f46095?hp=3f0a0d6e4f0d08b11bd4d458216c8382c59283b0>
- Log -----------------------------------------------------------------
commit 480127f457b51d8eeba80d83675918c7e6f46095
Author: Tony Cook <t...@develop-help.com>
Date: Tue Nov 19 16:45:13 2013 +1100
S_already_defined no longer uses its gv parameter, remove it
-----------------------------------------------------------------------
Summary of changes:
op.c | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/op.c b/op.c
index fe6d89e..a57309b 100644
--- a/op.c
+++ b/op.c
@@ -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;
--
Perl5 Master Repository
