util.c
/*
=for apidoc foldEQ_locale

Returns true if the leading len bytes of the strings s1 and s2 are the same
case-insensitively in the current locale; false otherwise.

=cut
*/
for apidoc foldEQ_locale
Returns true if the leading len bytes of the strings s1 and s2 are the same
case-insensitively in the current locale; false otherwise.

cut
for apidoc foldEQ_locale Returns true if the leading len bytes of the strings s1 and s2 are the same case - insensitively in the current locale ; false otherwise . cut
I32
Perl_foldEQ_locale(const char *s1, const char *s2, register I32 len)
{
    dVAR;
    register const U8 *a = (const U8 *)s1;
    register const U8 *b = (const U8 *)s2;
    PERL_ARGS_ASSERT_FOLDEQ_LOCALE;
    while (len--) {
	if (*a != *b && *a != PL_fold_locale[*b])
	    return 0;
	a++,b++;
    }
    return 1;
}
I32 Perl_foldEQ_locale ( const char * s1 , const char * s2 , register I32 len ) { dVAR ; register const U8 * a = ( const U8 * ) s1 ; register const U8 * b = ( const U8 * ) s2 ; PERL_ARGS_ASSERT_FOLDEQ_LOCALE ; while ( len -- ) { if ( * a != * b && * a != PL_fold_locale [ * b ] ) return 0 ; a ++ , b ++ ; } return 1 ; }
for apidoc foldEQ_locale
Returns true if the leading len bytes of the strings s1 and s2 are the same
case-insensitively in the current locale; false otherwise.
for apidoc foldEQ_locale Returns true if the leading len bytes of the strings s1 and s2 are the same case - insensitively in the current locale ; false otherwise .