[project @ 2003-10-02 13:48:38 by cjwatson]

Check matching owners when merging.

diff --git a/scripts/service.in b/scripts/service.in
index 720a554efa233f28b57a5e0cb8a585401b11afc1..59d5c094fcee4fa6a81c5bc9c5c879804d3098d2 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.93 2003/10/01 14:40:40 cjwatson Exp $
+# $Id: service.in,v 1.94 2003/10/02 13:48:38 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -548,6 +548,7 @@ END
            $data->{severity} = '$gDefaultSeverity' if $data->{severity} eq '';
            &checkmatch('severity','m_severity',$data->{severity});
            &checkmatch('done mark','m_done',length($data->{done}) ? 'done' : 'open');
+           &checkmatch('owner','m_owner',$data->{owner});
            foreach my $t (split /\s+/, $data->{keywords}) { $tags{$t} = 1; }
            if (length($mismatch)) {
                &transcript("Mismatch - only $gBugs in same state can be merged:\n".