From af146d0356af32e61fbb877d8fef257ffbfa7561 Mon Sep 17 00:00:00 2001
From: Phil Eckert <eckert2@llnl.gov>
Date: Fri, 16 Jul 2010 19:29:56 +0000
Subject: [PATCH] Add check for admin and user holds.
---
contribs/perlapi/libslurm/perl/Slurm.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/contribs/perlapi/libslurm/perl/Slurm.pm b/contribs/perlapi/libslurm/perl/Slurm.pm
index f44910f1dc6..dd17ee0e3a0 100644
--- a/contribs/perlapi/libslurm/perl/Slurm.pm
+++ b/contribs/perlapi/libslurm/perl/Slurm.pm
@@ -400,7 +400,8 @@ sub job_reason_string {
return "PartitionNodeLimit" if $r == WAIT_PART_NODE_LIMIT;
return "PartitionTimeLimit" if $r == WAIT_PART_TIME_LIMIT;
return "PartitionDown" if $r == WAIT_PART_DOWN;
- return "JobHeld" if $r == WAIT_HELD;
+ return "JobHeldUser" if $r == WAIT_HELD_USER;
+ return "JobHeldAdmin" if $r == WAIT_HELD;
return "BeginTime" if $r == WAIT_TIME;
return "PartitionDown" if $r == FAIL_DOWN_PARTITION;
return "NodeDown" if $r == FAIL_DOWN_NODE;
--
GitLab