This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid "implicit fallthrough" warning under ithreads
authorLukas Mai <l.mai@web.de>
Sun, 22 Oct 2017 13:56:11 +0000 (15:56 +0200)
committerLukas Mai <l.mai@web.de>
Sun, 22 Oct 2017 13:56:11 +0000 (15:56 +0200)
op.c

diff --git a/op.c b/op.c
index 14764ad..bcf1cba 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2585,8 +2585,8 @@ S_finalize_op(pTHX_ OP* o)
     case OP_CONST:
        if (cSVOPo->op_private & OPpCONST_STRICT)
            no_bareword_allowed(o);
-       /* FALLTHROUGH */
 #ifdef USE_ITHREADS
+        /* FALLTHROUGH */
     case OP_HINTSEVAL:
         op_relocate_sv(&cSVOPo->op_sv, &o->op_targ);
 #endif