This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Call macro instead of using explicit bit
authorKarl Williamson <public@khwilliamson.com>
Mon, 16 Jan 2012 22:13:11 +0000 (15:13 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 21 Jan 2012 17:02:54 +0000 (10:02 -0700)
The macro hides the bit name.

op.c

diff --git a/op.c b/op.c
index 2b7bc37..becbf64 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2936,7 +2936,7 @@ S_fold_constants(pTHX_ register OP *o)
     case OP_SCMP:
     case OP_SPRINTF:
        /* XXX what about the numeric ops? */
-       if (PL_hints & HINT_LOCALE)
+       if (IN_LOCALE_COMPILETIME)
            goto nope;
        break;
     }
@@ -4099,7 +4099,7 @@ Perl_newPMOP(pTHX_ I32 type, I32 flags)
 
     if (PL_hints & HINT_RE_TAINT)
        pmop->op_pmflags |= PMf_RETAINT;
-    if (PL_hints & HINT_LOCALE) {
+    if (IN_LOCALE_COMPILETIME) {
        set_regex_charset(&(pmop->op_pmflags), REGEX_LOCALE_CHARSET);
     }
     else if ((! (PL_hints & HINT_BYTES)) && (PL_hints & HINT_UNI_8_BIT)) {