mktables: Add constructor parameter

This new parameter will be used in the next commit, adds a special case
for handling tables that the perl interpreter relies on when compiling
a Unicode version earlier than the property is defined by Unicode.  This
will allow for tailoring the property to Perl's needs in the next commit

1 files changed, 13 insertions, 1 deletions

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 88d341f534..44f900b876 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -2284,6 +2284,11 @@ sub trace { return main::trace(@_); }
     # may not be the actual reality, but probably nobody cares anyway for
     # these obsolete characters.)
     #
+    # [3] if present must be the string 'ONLY_EARLY'.  Normally, when
+    # compiling Unicode versions that don't invoke the early handling, the
+    # name in [1] is added as an alias to the property name used for these.
+    # This parameter says to not do this.
+    #
     # Not all files can be handled in the above way, and so the code ref
     # alternative is available.  It can do whatever it needs to.  The other
     # array elements are optional in this case, and the code is free to use or
@@ -2404,6 +2409,11 @@ sub trace { return main::trace(@_); }
         my $progress;
         my $function_instead_of_file = 0;
 
+        if ($early{$addr}->@* > 3 && $early{$addr}[3] ne 'ONLY_EARLY') {
+            Carp::my_carp_bug("If present, element [3] in 'Early => [ ... ]'"
+                            . " must be the string 'ONLY_EARLY'");
+        }
+
         # If we are compiling a Unicode release earlier than the file became
         # available, the constructor may have supplied a substitute
         if ($first_released{$addr} gt $v_version && $early{$addr}->@*) {
@@ -2701,7 +2711,9 @@ END
                 # will work regardless.
                 if (! $early{$addr}[0] && $early{$addr}->@* > 2) {
                     my $early_property_name = $early{$addr}[2];
-                    if ($property{$addr} ne $early_property_name) {
+                    if (   $property{$addr} ne $early_property_name
+                        && $early{$addr}->@* < 5)
+                    {
                         main::property_ref($property{$addr})
                                             ->add_alias($early_property_name);
                     }