summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-11-25 12:18:42 -0700
committerKarl Williamson <khw@cpan.org>2014-11-26 09:18:33 -0700
commit9f10db87f54f2a85594e3661927a9b6128c1f425 (patch)
treefbb32d9c0629ccea6b57538b401f577288b4b35f /pp_sys.c
parent09902b1fc2af1bca16bf40b6f6dd1e420562d9e2 (diff)
downloadperl-9f10db87f54f2a85594e3661927a9b6128c1f425.tar.gz
Change core to use is_invariant_string()
is_ascii_string's name has misled me in the past; the new name is clearer.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/pp_sys.c b/pp_sys.c
index b3714696b0..0bc1aa179f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3486,12 +3486,12 @@ PP(pp_fttext)
#endif
assert(len);
- if (! is_ascii_string((U8 *) s, len)) {
+ if (! is_invariant_string((U8 *) s, len)) {
const U8 *ep;
- /* Here contains a non-ASCII. See if the entire string is UTF-8. But
- * the buffer may end in a partial character, so consider it UTF-8 if
- * the first non-UTF8 char is an ending partial */
+ /* Here contains a variant under UTF-8 . See if the entire string is
+ * UTF-8. But the buffer may end in a partial character, so consider
+ * it UTF-8 if the first non-UTF8 char is an ending partial */
if (is_utf8_string_loc((U8 *) s, len, &ep)
|| ep + UTF8SKIP(ep) > (U8 *) (s + len))
{