diff --git a/contribs/perlapi/libslurm-perl/job.c b/contribs/perlapi/libslurm-perl/job.c index b84d60e303eeeb0c60e48b5abab78aaf7fa67694..f08d76db91dfd6d5bd6490817c502c7ce40aad85 100644 --- a/contribs/perlapi/libslurm-perl/job.c +++ b/contribs/perlapi/libslurm-perl/job.c @@ -78,7 +78,6 @@ job_info_to_hv(job_info_t* job_info, HV* hv) STORE_FIELD(hv, job_info, job_min_cores, uint16_t); STORE_FIELD(hv, job_info, job_min_threads, uint16_t); STORE_FIELD(hv, job_info, job_min_memory, uint32_t); - STORE_FIELD(hv, job_info, job_max_memory, uint32_t); STORE_FIELD(hv, job_info, job_min_tmp_disk, uint32_t); if(job_info->req_nodes) STORE_FIELD(hv, job_info, req_nodes, charp); @@ -88,7 +87,7 @@ job_info_to_hv(job_info_t* job_info, HV* hv) /* TODO: exc_node_inx */ if(job_info->features) STORE_FIELD(hv, job_info, features, charp); - STORE_FIELD(hv, job_info, dependency, uint32_t); + STORE_FIELD(hv, job_info, dependency, charp); STORE_FIELD(hv, job_info, exit_code, uint32_t); if(job_info->account) STORE_FIELD(hv, job_info, account, charp); diff --git a/contribs/perlapi/libslurm-perl/launch.c b/contribs/perlapi/libslurm-perl/launch.c index 1ab2e8c79a87168acfc1c857352a99cbdf3739a0..4ff53cfe1f9c9c915a3704924580bc83662321de 100644 --- a/contribs/perlapi/libslurm-perl/launch.c +++ b/contribs/perlapi/libslurm-perl/launch.c @@ -29,6 +29,7 @@ hv_to_slurm_step_ctx_params(HV* hv, slurm_step_ctx_params_t* params) FETCH_FIELD(hv, params, node_list, charp, FALSE); FETCH_FIELD(hv, params, network, charp, FALSE); FETCH_FIELD(hv, params, overcommit, bool, FALSE); + FETCH_FIELD(hv, params, mem_per_task, uint16_t, FALSE) return 0; }