More admonishment that one shouldn't waste one's efforts

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 0a8c0a2..5a60a1c 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3977,6 +3977,10 @@ Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *falseop)
 
     scalarboolean(first);
     if (first->op_type == OP_CONST) {
+        if (first->op_private & OPpCONST_BARE &&
+           first->op_private & OPpCONST_STRICT) {
+           no_bareword_allowed(first);
+       }
        if (SvTRUE(((SVOP*)first)->op_sv)) {
            op_free(first);
            op_free(falseop);