mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

utf8.c: Skip extraneous function call

Browse Source 
This eliminates an intermediate function call by calling the base level
one directly.
This commit is contained in:
Karl Williamson 2012-04-28 18:49:52 -06:00
parent 3986bb7cb3
commit 2ff6c1911c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utf8.c
View File

@ -957,7 +957,7 @@ Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen)
{
PERL_ARGS_ASSERT_UTF8_TO_UVCHR;
return valid_utf8_to_uvchr(s, retlen);
return utf8_to_uvchr_buf(s, s + UTF8_MAXBYTES, retlen);
}
/*