summaryrefslogtreecommitdiff
path: root/mathoms.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2016-12-14 13:00:45 -0700
committerKarl Williamson <khw@cpan.org>2016-12-23 22:36:33 -0700
commitd4f48b064914f271411fb517d698b2d59bbbb6e3 (patch)
treece21b96e41ae3e85a90d226dc08c46c9aee07c7a /mathoms.c
parent71a0317b30064fe6979f8616f6d11553b35de971 (diff)
downloadperl-d4f48b064914f271411fb517d698b2d59bbbb6e3.tar.gz
regcomp.c, mathoms.c: Convert to use preferred macro
Better to use the macro than to directly call the function it wraps
Diffstat (limited to 'mathoms.c')
-rw-r--r--mathoms.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/mathoms.c b/mathoms.c
index c74a38625a..92cd77a3c7 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1145,7 +1145,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);
+ return toFOLD_utf8(p, ustrp, lenp);
}
UV
@@ -1153,7 +1153,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);
+ return toLOWER_utf8(p, ustrp, lenp);
}
UV
@@ -1161,7 +1161,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);
+ return toTITLE_utf8(p, ustrp, lenp);
}
UV
@@ -1169,7 +1169,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);
+ return toUPPER_utf8(p, ustrp, lenp);
}
SV *