Skip to content

Commit

Permalink
Use supported case changing macros
Browse files Browse the repository at this point in the history
The code as-is no longer compiles due to changes in the API required
because of security issues.  However this patch causes it to compile
back to 5.6.0 as long as ppport.h version 3.55 or later is included.

This fix is part of Perl/perl5#17024
  • Loading branch information
khwilliamson committed Nov 12, 2019
1 parent 164672c commit da280c9
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions encGlue.c
Original file line number Diff line number Diff line change
Expand Up @@ -273,7 +273,7 @@ Tcl_UtfToLower (char * src)
while (*s)
{
STRLEN len;
Perl_to_utf8_lower(aTHX_ s, d, &len );
toLOWER_utf8_safe(s, s + UTF8_CHK_SKIP(s), d, &len );
d += len;
s += len;
}
Expand All @@ -290,7 +290,7 @@ Tcl_UtfToUpper(char * src)
while (*s)
{
STRLEN len;
Perl_to_utf8_upper(aTHX_ s, d, &len );
toUPPER_utf8_safe(s, s + UTF8_CHK_SKIP(s), d, &len );
d += len;
s += len;
}
Expand Down

0 comments on commit da280c9

Please sign in to comment.