From 03675f77c594b6344fab4daa73fc31bf9d7cd730 Mon Sep 17 00:00:00 2001
From: Morris Jette <jette@schedmd.com>
Date: Wed, 5 Oct 2011 09:08:35 -0700
Subject: [PATCH] Update PERL API for node update
---
contribs/perlapi/libslurm/perl/node.c | 2 ++
1 file changed, 2 insertions(+)
diff --git a/contribs/perlapi/libslurm/perl/node.c b/contribs/perlapi/libslurm/perl/node.c
index 18d29598382..1b25255e071 100644
--- a/contribs/perlapi/libslurm/perl/node.c
+++ b/contribs/perlapi/libslurm/perl/node.c
@@ -196,6 +196,8 @@ hv_to_update_node_msg(HV *hv, update_node_msg_t *update_msg)
{
slurm_init_update_node_msg(update_msg);
+ FETCH_FIELD(hv, update_msg, node_addr, charp, FALSE);
+ FETCH_FIELD(hv, update_msg, node_hostname, charp, FALSE);
FETCH_FIELD(hv, update_msg, node_names, charp, TRUE);
FETCH_FIELD(hv, update_msg, node_state, uint16_t, FALSE);
FETCH_FIELD(hv, update_msg, reason, charp, FALSE);
--
GitLab