diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-01-14 10:31:09 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-01-22 11:45:58 -0700 |
| commit | c8bf5ca7a1b77fe62bf76d50fc01635dcefb91be (patch) | |
| tree | b50a8ef3592dae56b1e3a4436a59c9c115b76038 /pp.c | |
| parent | 37a519b2b9e6d87de805b7c3206e6e716e742fba (diff) | |
| download | perl-c8bf5ca7a1b77fe62bf76d50fc01635dcefb91be.tar.gz | |
Add some cBOOL casts to macros
I kept getting burned by these macros returning non-zero instead of a
boolean, as they are used as bool parameters to functions. So I added
cBOOLs to them.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3504,11 +3504,11 @@ PP(pp_ucfirst) ulen = UTF8SKIP(s); if (op_type == OP_UCFIRST) { _to_utf8_title_flags(s, tmpbuf, &tculen, - cBOOL(IN_LOCALE_RUNTIME), &tainted); + IN_LOCALE_RUNTIME, &tainted); } else { _to_utf8_lower_flags(s, tmpbuf, &tculen, - cBOOL(IN_LOCALE_RUNTIME), &tainted); + IN_LOCALE_RUNTIME, &tainted); } /* we can't do in-place if the length changes. */ @@ -3771,7 +3771,7 @@ PP(pp_uc) u = UTF8SKIP(s); uv = _to_utf8_upper_flags(s, tmpbuf, &ulen, - cBOOL(IN_LOCALE_RUNTIME), &tainted); + IN_LOCALE_RUNTIME, &tainted); #define GREEK_CAPITAL_LETTER_IOTA 0x0399 #define COMBINING_GREEK_YPOGEGRAMMENI 0x0345 if (uv == GREEK_CAPITAL_LETTER_IOTA @@ -3977,7 +3977,7 @@ PP(pp_lc) STRLEN ulen; _to_utf8_lower_flags(s, tmpbuf, &ulen, - cBOOL(IN_LOCALE_RUNTIME), &tainted); + IN_LOCALE_RUNTIME, &tainted); /* Here is where we would do context-sensitive actions. See the * commit message for 86510fb15 for why there isn't any */ |