PATCH: [perl #112530] Panic with inversion lists

The code assumed that all property definitions would be well-formed,
meaning, in part, that they would be numerically sorted by code point,
with each range disjoint from all others.  So, the code was just
appending each range as it is found to the inversion list it is
building.

This assumption is true for all definitions generated by mktables, but
it might not be true for user-defined ones.  The solution is merely to
change from calling the function that appends to instead call the
existing function that handles the more general case.

However, that function was not previously used outside the file it was
defined in, so must now be made public.  Also, this whole interface is
considered volatile, so the names of the public functions in it begin
with an underscore to further discourage XS writers from using them.
Therefore the more general add function is renamed to begin with an
underscore.

And, the append function is no longer needed outside the file it is
defined in, so again to keep XS writers from using it, this commit makes
it static.

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index 1a69dd314c..8585eb1665 100644
--- a/utf8.c
+++ b/utf8.c
@@ -3771,7 +3771,7 @@ Perl__swash_to_invlist(pTHX_ SV* const swash)
 	    break;
 	}
 
-	_append_range_to_invlist(invlist, start, end);
+	invlist = _add_range_to_invlist(invlist, start, end);
     }
 
     /* Invert if the data says it should be */