X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=c80a3ce0415337328be9dd995d8409069318d88d;hb=d059e46de9b45b8881b61fc41ff6106b69c19cac;hp=a36321a4ee2cf6f3469adf37309c0bb7e13e46ff;hpb=14f7d80b0cd0adfa02ae77d30111fe6daca53456;p=debbugs.git

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index a36321a..c80a3ce 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2685,6 +2685,13 @@ sub __begin_control {
     if (not @data) {
 	die "Unable to read any bugs successfully.";
     }
+    if (not $param{archived}) {
+	for my $data (@data) {
+	    if ($data->{archived}) {
+		die "Not altering archived bugs; see unarchive.";
+	    }
+	}
+    }
     if (not __check_limit(data => \@data,
 			  exists $param{limit}?(limit => $param{limit}):(),
 			 )) {