Respond with status 500 Internal Server Error where expected

interchange · Jan 18, 2019 · 1d24530 · 1d24530
1 parent 887e3b3
commit 1d24530
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/Vend/Dispatch.pm b/lib/Vend/Dispatch.pm
@@ -694,6 +694,11 @@ EOF
 			;
 		$template = get_locale_message(500, $template, $err);
 		logError($err);
+		$Vend::StatusLine = <<EOF;
+Status: 500 Internal Server Error
+Content-Type: text/plain
+EOF
+		undef $Vend::write_redirect;
 		response($template);
 	}
 
@@ -1892,6 +1897,10 @@ EOF
 			;
 		$template = get_locale_message(500, $template, $err);
 		logError($err);
+		$Vend::StatusLine = <<EOF;
+Status: 500 Internal Server Error
+Content-Type: text/plain
+EOF
 		undef $Vend::write_redirect;
 		response($template);
 	}