diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-16 15:13:11 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:54 -0700 |
| commit | 82ad65bb0613be64ca286f6db04d305b7f037509 (patch) | |
| tree | 3eec07d7633e4638224663196ceae910a1d59450 | |
| parent | f07538a5ede83b76aa73e872c7900cfb683089be (diff) | |
| download | perl-82ad65bb0613be64ca286f6db04d305b7f037509.tar.gz | |
op.c: Call macro instead of using explicit bit
The macro hides the bit name.
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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)) { |