X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=859d5e8d2067f87a7c7b3f3bed21038df65cfb72;hb=45b9dc0e4698d73c451331f9e6ec86d22b1393a8;hp=fe25f6fe0ef1848c019c9b49fd9b5b5a2a1c0821;hpb=1103c0f0e2b75f6e7bc04c0e3432251895d3a705;p=debbugs.git

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index fe25f6f..859d5e8 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -161,7 +161,7 @@ This routine archives a bug
 sub bug_archive {
      my %param = validate_with(params => \@_,
 			       spec   => {bug => {type   => SCALAR,
-						  regex  => qr/^\d+/,
+						  regex  => qr/^\d+$/,
 						 },
 					  check_archiveable => {type => BOOLEAN,
 								default => 1,