[PATCH] Re: weird regexness

[Robin Houston]

--- op.c.orig   Thu Dec  6 12:08:38 2001
+++ op.c        Thu Dec  6 12:14:57 2001
@@ -2055,6 +2055,13 @@
              desc, sample, sample);
     }
 
+    if (right->op_type == OP_CONST &&
+       cSVOPx(right)->op_private & OPpCONST_BARE &&
+       cSVOPx(right)->op_private & OPpCONST_STRICT)
+    {
+       no_bareword_allowed(right);
+    }
+
     if (!(right->op_flags & OPf_STACKED) &&
        (right->op_type == OP_MATCH ||
        right->op_type == OP_SUBST ||