in tcl_cmds.c [1796:1811]
int cmd_ap_send_error_response(ClientData cd, Tcl_Interp *ixx, int objc, Tcl_Obj *CONST objv[])
{
int recursive_error;
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "recursive_error");
return TCL_ERROR;
}
Tcl_GetIntFromObj(interp, objv[1], &recursive_error);
ap_send_error_response(_r, recursive_error);
return TCL_OK;
}