Bug 422111: rederive regexp-based group memberships on the destination user after...

a=LpSolit

diff --git a/contrib/merge-users.pl b/contrib/merge-users.pl
index f071f7c2c1e2601c5646e5831e7a6ac86328e6a8..5769b8a3dc5779bd8e2af20faf337cce74e063f3 100644 (file)
--- a/contrib/merge-users.pl
+++ b/contrib/merge-users.pl
@@ -49,6 +49,7 @@ use lib qw(.);
 use Bugzilla;
 use Bugzilla::Constants;
 use Bugzilla::Util;
+use Bugzilla::User;
 
 use Getopt::Long;
 use Pod::Usage;
@@ -233,4 +234,7 @@ $dbh->do('DELETE FROM profiles WHERE userid = ?', undef, $old_id);
 # Unlock tables
 $dbh->bz_unlock_tables();
 
+my $user = new Bugzilla::User($new_id);
+$user->derive_regexp_groups();
+
 print "Done.\n";