fix category on "Statement unlikely to be reached"
[perl.git] / op.c
diff --git a/op.c b/op.c
index 516a713..a89e814 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1735,7 +1735,7 @@ S_finalize_op(pTHX_ OP* o)
     case OP_EXEC:
        if ( o->op_sibling
            && (o->op_sibling->op_type == OP_NEXTSTATE || o->op_sibling->op_type == OP_DBSTATE)
-           && ckWARN(WARN_SYNTAX))
+           && ckWARN(WARN_EXEC))
            {
                if (o->op_sibling->op_sibling) {
                    const OPCODE type = o->op_sibling->op_sibling->op_type;