mktables: Add &= overload for Range_Lists

This is useful under the -annotate option

1 files changed, 15 insertions, 0 deletions

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 8e30f94d13..e7aa869ec6 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -4281,6 +4281,21 @@ sub trace { return main::trace(@_); }
 
                     return $self->_intersect($other, 0);
                 },
+        '&=' => sub { my $self = shift;
+                    my $other = shift;
+                    my $reversed = shift;
+
+                    if ($reversed) {
+                        Carp::my_carp_bug("Bad news.  Can't cope with '"
+                        . ref($other)
+                        . ' &= '
+                        . ref($self)
+                        . "'.  undef returned.");
+                        return;
+                    }
+
+                    return $self->_intersect($other, 0);
+                },
         '~' => "_invert",
         '-' => "_subtract",
     ;