X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=cgi%2Fbugreport.cgi;h=7a9498213e0828bad8cdf59ae8ef0380bd346b1e;hp=9b445ce64ae1e562af1a5e426d60ea573ca6487a;hb=235a779bdb026b6357e95053e1d7faaab87e8931;hpb=860adfcbfe0e15cb94d9a6bd2536838cd48a49e5

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 9b445ce..7a94982 100755
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -60,8 +60,8 @@ my %param = cgi_parameters(query => $q,
 			  );
 # This is craptacular.
 
-my $ref = $param{bug} or quitcgi("No bug number");
-$ref =~ /(\d+)/ or quitcgi("Invalid bug number");
+my $ref = $param{bug} or quitcgi("No bug number", '400 Bad Request');
+$ref =~ /(\d+)/ or quitcgi("Invalid bug number", '400 Bad Request');
 $ref = $1;
 my $short = "#$ref";
 my ($msg) = $param{msg} =~ /^(\d+)$/ if exists $param{msg};