mktables: New method on properties to delete tables

This method will be used in a future commit.

1 files changed, 19 insertions, 0 deletions

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 46cef3ed90..47c390ab0e 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -7430,6 +7430,25 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace }
         return $table;
     }
 
+    sub delete_match_table {
+        # Delete the table referred to by $2 from the property $1.
+
+        my $self = shift;
+        my $table_to_remove = shift;
+        Carp::carp_extra_args(\@_) if main::DEBUG && @_;
+
+        my $addr = do { no overloading; pack 'J', $self; };
+
+        # Remove all names that refer to it.
+        foreach my $key (keys %{$table_ref{$addr}}) {
+            delete $table_ref{$addr}{$key}
+                                if $table_ref{$addr}{$key} == $table_to_remove;
+        }
+
+        $table_to_remove->DESTROY;
+        return;
+    }
+
     sub table {
         # Return a pointer to the match table (with name given by the
         # parameter) associated with this property; undef if none.