handy.h: Fix isIDCONT_utf8()

It was handling above-Latin1 code points as IDstarts instead of
continues.

2 files changed, 5 insertions, 1 deletions

diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t
index 0730c109e0..5ecbaa7451 100644
--- a/ext/XS-APItest/t/handy.t
+++ b/ext/XS-APItest/t/handy.t
@@ -77,6 +77,10 @@ foreach my $name (sort keys %properties) {
     # This makes sure we are using the Perl definition of idfirst and idcont,
     # and not the Unicode.  There are a few differences.
     push @code_points, ord "\N{ESTIMATED SYMBOL}" if $name =~ /^id(first|cont)/;
+    if ($name eq "idcont") {    # And some that are continuation but not start
+        push @code_points, ord("\N{GREEK ANO TELEIA}"),
+                           ord("\N{COMBINING GRAVE ACCENT}");
+    }
 
     # And finally one non-Unicode code point.
     push @code_points, 0x110000;    # Above Unicode, no prop should match
diff --git a/handy.h b/handy.h
index 1beca9b71c..298383e25b 100644
--- a/handy.h
+++ b/handy.h
@@ -1268,7 +1268,7 @@ EXTCONST U32 PL_charclass[];
                                                   _is_utf8_FOO(_CC_DIGIT, p))
 #define isGRAPH_utf8(p)         _generic_swash_utf8(_CC_GRAPH, p)
 #define isIDCONT_utf8(p)        _generic_func_utf8(_CC_WORDCHAR,              \
-                                                  _is_utf8_perl_idstart, p)
+                                                  _is_utf8_perl_idcont, p)
 
 /* To prevent S_scan_word in toke.c from hanging, we have to make sure that
  * IDFIRST is an alnum.  See