This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Backport is_utf8_invariant_string, is_invariant_string
authorKarl Williamson <khw@cpan.org>
Thu, 4 Jul 2019 19:15:21 +0000 (13:15 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:27 +0000 (16:39 -0600)
These are more correct synonyms for is_ascii_string

(cherry picked from commit 7d9499b7ae83f2017b5c3a659547d98dc11633eb)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/utf8

index b2cd019..9437b41 100644 (file)
@@ -35,6 +35,15 @@ __UNDEFINED__  UTF8_SAFE_SKIP(s, e)  (
                                       : D_PPP_MIN(((e) - (s)), UTF8SKIP(s))))
 #endif
 
+#ifdef is_ascii_string
+__UNDEFINED__ is_invariant_string(s,l) is_ascii_string(s,l)
+__UNDEFINED__ is_utf8_invariant_string(s,l) is_ascii_string(s,l)
+
+/* Hint: is_utf8_invariant_string
+   Please use this instead of is_ascii_string or is_invariant_string
+*/
+#endif
+
 #if defined(is_utf8_string) && defined(UTF8SKIP)
 __UNDEFINED__ isUTF8_CHAR(s0, e)    (                                           \
     (e) <= (s0) || ! is_utf8_string(s0, D_PPP_MIN(UTF8SKIP(s0), (e) - (s0)))    \