diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-01-27 10:42:28 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-01-27 11:07:18 -0700 |
| commit | 445bf929f6118f5f2b0e19171f576c3a6d7ada50 (patch) | |
| tree | cab3ea7a043854d09ad59b32342755b1e8b5bffb /mathoms.c | |
| parent | 1b4a62a4c81dba4bbb281d24fde1c3b7308fdbfe (diff) | |
| download | perl-445bf929f6118f5f2b0e19171f576c3a6d7ada50.tar.gz | |
Taint more operands with case changes
The documentation says that Perl taints certain operations when subject
to locale rules, such as lc() and ucfirst(). Prior to this commit
there were exceptions when the operand to these functions contained no
characters whose case change actually varied depending on the locale,
for example the empty string or above-Latin1 code points. Changing to
conform to the documentation simplifies the core code, and yields more
consistent results.
Diffstat (limited to 'mathoms.c')
| -rw-r--r-- | mathoms.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1180,7 +1180,7 @@ Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) { PERL_ARGS_ASSERT_TO_UTF8_FOLD; - return _to_utf8_fold_flags(p, ustrp, lenp, FOLD_FLAGS_FULL, NULL); + return _to_utf8_fold_flags(p, ustrp, lenp, FOLD_FLAGS_FULL); } UV @@ -1188,7 +1188,7 @@ Perl_to_utf8_lower(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) { PERL_ARGS_ASSERT_TO_UTF8_LOWER; - return _to_utf8_lower_flags(p, ustrp, lenp, FALSE, NULL); + return _to_utf8_lower_flags(p, ustrp, lenp, FALSE); } UV @@ -1196,7 +1196,7 @@ Perl_to_utf8_title(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) { PERL_ARGS_ASSERT_TO_UTF8_TITLE; - return _to_utf8_title_flags(p, ustrp, lenp, FALSE, NULL); + return _to_utf8_title_flags(p, ustrp, lenp, FALSE); } UV @@ -1204,7 +1204,7 @@ Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) { PERL_ARGS_ASSERT_TO_UTF8_UPPER; - return _to_utf8_upper_flags(p, ustrp, lenp, FALSE, NULL); + return _to_utf8_upper_flags(p, ustrp, lenp, FALSE); } SV * |