diff --git a/contribs/perlapi/libslurm/perl/partition.c b/contribs/perlapi/libslurm/perl/partition.c index 2d8a9493d940155647b1d6018f53b19bdba54016..28518decce0c1c8b73dcebf928baff4a5afe6eba 100644 --- a/contribs/perlapi/libslurm/perl/partition.c +++ b/contribs/perlapi/libslurm/perl/partition.c @@ -85,7 +85,7 @@ int hv_to_update_part_msg(HV* hv, update_part_msg_t* part_msg) { slurm_init_part_desc_msg(part_msg); - + FETCH_FIELD(hv, part_msg, allow_alloc_nodes, charp, FALSE); FETCH_FIELD(hv, part_msg, allow_groups, charp, FALSE); FETCH_FIELD(hv, part_msg, default_time, uint32_t, FALSE); diff --git a/contribs/perlapi/libslurm/perl/reservation.c b/contribs/perlapi/libslurm/perl/reservation.c index 27082c42a7bd2b2d39000c5a003fd54e799272ee..2efd406389596a8b34e1016fbf0a1c3ab8866e49 100644 --- a/contribs/perlapi/libslurm/perl/reservation.c +++ b/contribs/perlapi/libslurm/perl/reservation.c @@ -1,5 +1,6 @@ /* - * reservation.c - convert data between reservation related messages and perl HVs + * reservation.c - convert data between reservation related messages + * and perl HVs */ #include <EXTERN.h> @@ -40,7 +41,8 @@ reserve_info_to_hv(reserve_info_t* reserve_info, HV* hv) if(reserve_info->node_inx[j] == -1) break; av_store(avp, j, newSVuv(reserve_info->node_inx[j])); - av_store(avp, j+1, newSVuv(reserve_info->node_inx[j+1])); + av_store(avp, j+1, + newSVuv(reserve_info->node_inx[j+1])); } hv_store_sv(hv, "node_inx", newRV_noinc((SV*)avp)); } @@ -67,7 +69,8 @@ reserve_info_msg_to_hv(reserve_info_msg_t* reserve_info_msg, HV* hv) avp = newAV(); for(i = 0; i < reserve_info_msg->record_count; i ++) { hvp = newHV(); - if (reserve_info_to_hv(reserve_info_msg->reservation_array + i, hvp) + if (reserve_info_to_hv(reserve_info_msg->reservation_array + i, + hvp) < 0) { SvREFCNT_dec(hvp); SvREFCNT_dec(avp);