From 817351ca76c7e9345969360def3d8b47d733f851 Mon Sep 17 00:00:00 2001
From: David Gloe <dgloe@cray.com>
Date: Tue, 21 Oct 2014 15:14:15 -0700
Subject: [PATCH] Update perl API to match Slurm API change
The slurm_sbcast_lookup() API was recently changed to take a step ID.
This changes the Perl API to match that.
---
contribs/perlapi/libslurm/perl/Slurm.xs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/contribs/perlapi/libslurm/perl/Slurm.xs b/contribs/perlapi/libslurm/perl/Slurm.xs
index 77840432e72..013d05f53bd 100644
--- a/contribs/perlapi/libslurm/perl/Slurm.xs
+++ b/contribs/perlapi/libslurm/perl/Slurm.xs
@@ -675,7 +675,7 @@ slurm_job_will_run(slurm_t self, HV *job_desc)
RETVAL
HV *
-slurm_sbcast_lookup(slurm_t self, uint32_t job_id)
+slurm_sbcast_lookup(slurm_t self, uint32_t job_id, uint32_t step_id)
PREINIT:
job_sbcast_cred_msg_t *info;
int rc;
@@ -685,7 +685,7 @@ slurm_sbcast_lookup(slurm_t self, uint32_t job_id)
out of the mix Slurm-> doesn't work,
only Slurm::
*/
- rc = slurm_sbcast_lookup(job_id, &info);
+ rc = slurm_sbcast_lookup(job_id, step_id, &info);
if (rc == SLURM_SUCCESS) {
RETVAL = newHV();
sv_2mortal((SV*)RETVAL);
--
GitLab