diff options
author | Karl Williamson <khw@cpan.org> | 2019-10-22 13:05:44 -0600 |
---|---|---|
committer | Nicolas R <atoomic@cpan.org> | 2019-11-08 12:01:13 -0700 |
commit | 0e94ecc658163cc62d678a3305bce5df346fb29c (patch) | |
tree | cc347354097bb2ef545f417e677e0aeaf841a697 /dist/Devel-PPPort/parts/inc/misc | |
parent | 20d3419f2524d4a490b4dde0e3a8eac4219b3e0a (diff) | |
download | perl-0e94ecc658163cc62d678a3305bce5df346fb29c.tar.gz |
parts/inc/misc: early toFOLD_utf8_safe() is toLOWER
On early perls, there was no distinction between fold and lowercase, so
just call lower from fold.
(cherry picked from commit 0450a74631276c933399241c46616508ce32c299)
Signed-off-by: Nicolas R <atoomic@cpan.org>
Diffstat (limited to 'dist/Devel-PPPort/parts/inc/misc')
-rw-r--r-- | dist/Devel-PPPort/parts/inc/misc | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc index 8c9ae262e5..eafa1acd8a 100644 --- a/dist/Devel-PPPort/parts/inc/misc +++ b/dist/Devel-PPPort/parts/inc/misc @@ -879,8 +879,7 @@ __UNDEFINED__ toTITLE_utf8_safe(s,e,r,l) \ lowercasing. This gives the correct result in most, but not all, instances */ -__UNDEFINED__ toFOLD_utf8_safe(s,e,r,l) \ - D_PPP_GENERIC_SINGLE_ARG_TO(lower, s, e, r, l) +__UNDEFINED__ toFOLD_utf8_safe(s,e,r,l) toLOWER_utf8_safe(s,e,r,l) #endif |