mktables: Add error check for overloaded &=

This operation is not commutative, so should fail if the operands are
swapped.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index e7aa869ec6..4dc53eda23 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -6947,6 +6947,16 @@ sub trace { return main::trace(@_); }
         '&=' => 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 if $self->carp_if_locked;
                         $self->_set_range_list($self->_range_list & $other);