From 7610e9e259b14433c23d6018d41726ef10bc9f75 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 21 Aug 2011 13:33:51 -0600
Subject: [PATCH] mktables: Allow related equivalencing of sub-tables

Two tables in the same property that are equivalenced should be able
to be set to be 'related'.
---
 lib/unicore/mktables | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index ba7d160..b8bac49 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -6768,7 +6768,14 @@ sub trace { return main::trace(@_); }
                     Carp::my_carp_bug("Use add_alias() to set two Perl tables '$self' and '$other', equivalent.");
                     return;
                 }
-            } elsif (! $other->perl_extension) {
+            } elsif ($self->property != $other->property    # Depending on
+                                                            # situation, might
+                                                            # be better to use
+                                                            # add_alias()
+                                                            # instead for same
+                                                            # property
+                     && ! $other->perl_extension)
+            {
                 Carp::my_carp_bug("set_equivalent_to should have 'Related => 0 for equivalencing two Unicode properties.  Assuming $self is not related to $other");
                 $related = 0;
             }
-- 
2.7.4