PERL_ARGS_ASSERT_TO_UTF8_UPPER;
return Perl_to_utf8_case(aTHX_ p, ustrp, lenp,
- &PL_utf8_toupper, "ToUpper", "utf8::ToSpecUpper");
+ &PL_utf8_toupper, "Touc", "utf8::ToSpecUpper");
}
/*
PERL_ARGS_ASSERT_TO_UTF8_TITLE;
return Perl_to_utf8_case(aTHX_ p, ustrp, lenp,
- &PL_utf8_totitle, "ToTitle", "utf8::ToSpecTitle");
+ &PL_utf8_totitle, "ToTc", "utf8::ToSpecTitle");
}
/*
PERL_ARGS_ASSERT_TO_UTF8_LOWER;
return Perl_to_utf8_case(aTHX_ p, ustrp, lenp,
- &PL_utf8_tolower, "ToLower", "utf8::ToSpecLower");
+ &PL_utf8_tolower, "Tolc", "utf8::ToSpecLower");
}
/*
PERL_ARGS_ASSERT__TO_UTF8_FOLD_FLAGS;
return Perl_to_utf8_case(aTHX_ p, ustrp, lenp,
- &PL_utf8_tofold, "ToFold", specials);
+ &PL_utf8_tofold, "Tocf", specials);
}
/* Note: