This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_already_defined no longer uses its gv parameter, remove it
[perl5.git] / op.c
diff --git a/op.c b/op.c
index fe6d89e..a57309b 100644 (file)
--- 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;