regcomp.c: Combine two cases in a switch()

[perl5.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index cd5033f..199df1f 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2867,11 +2867,14 @@ PP(pp_goto)
            SAVEFREESV(cv); /* later, undo the 'avoid premature free' hack */
            if (CvISXSUB(cv)) {
                OP* const retop = cx->blk_sub.retop;
-               SV **newsp PERL_UNUSED_DECL;
-               I32 gimme PERL_UNUSED_DECL;
+               SV **newsp;
+               I32 gimme;
                const SSize_t items = AvFILLp(arg) + 1;
                SV** mark;
 
+                PERL_UNUSED_VAR(newsp);
+                PERL_UNUSED_VAR(gimme);
+
                /* put GvAV(defgv) back onto stack */
                EXTEND(SP, items+1); /* @_ could have been extended. */
                Copy(AvARRAY(arg), SP + 1, items, SV*);