Skip to content

Commit 3f29e37

Browse files
committed
toke.c: Use utf8_to-uv_or_die not utf8_to_uvchr_buf
1 parent c2ae512 commit 3f29e37

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

toke.c

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -2963,8 +2963,8 @@ Perl_get_and_check_backslash_N_name(pTHX_ const char* s,
29632963
}
29642964
else {
29652965
if (! _invlist_contains_cp(PL_utf8_charname_begin,
2966-
utf8_to_uvchr_buf((U8 *) s,
2967-
(U8 *) e,
2966+
utf8_to_uv_or_die((const U8 *) s,
2967+
(const U8 *) e,
29682968
NULL)))
29692969
{
29702970
goto bad_charname;
@@ -2991,8 +2991,8 @@ Perl_get_and_check_backslash_N_name(pTHX_ const char* s,
29912991
}
29922992
else {
29932993
if (! _invlist_contains_cp(PL_utf8_charname_continue,
2994-
utf8_to_uvchr_buf((U8 *) s,
2995-
(U8 *) e,
2994+
utf8_to_uv_or_die((const U8 *) s,
2995+
(const U8 *) e,
29962996
NULL)))
29972997
{
29982998
goto bad_charname;
@@ -11634,7 +11634,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
1163411634
delim_byte_len = 1;
1163511635
}
1163611636
else {
11637-
open_delim_code = utf8_to_uvchr_buf((U8*)s, (U8*)PL_bufend,
11637+
open_delim_code = utf8_to_uv_or_die((U8*)s, (U8*)PL_bufend,
1163811638
&delim_byte_len);
1163911639
if (UNLIKELY(! is_grapheme((U8 *) start,
1164011640
(U8 *) s,

0 commit comments

Comments
 (0)