From a0cb56f691f8b19055abb460b7b08333bfb86b78 Mon Sep 17 00:00:00 2001
From: "David M. Johnson" <johnsond@flux.utah.edu>
Date: Fri, 17 Nov 2017 15:21:51 -0700
Subject: [PATCH] Fix minor bug in rcordersort (used only by getrcmanifest).

---
 clientside/tmcc/common/libsetup.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/clientside/tmcc/common/libsetup.pm b/clientside/tmcc/common/libsetup.pm
index b95c40955..013b428fa 100644
--- a/clientside/tmcc/common/libsetup.pm
+++ b/clientside/tmcc/common/libsetup.pm
@@ -813,6 +813,8 @@ sub rcordersort($$) {
     my $nb = ($cb ge '0' && $cb le '9');
 
     if ($na && $nb) {
+	if ($a =~ /^(\d+)/) { $a = $1 }
+	if ($b =~ /^(\d+)/) { $b = $1 }
 	return int($a) <=> int($b);
     }
     elsif ($na && !$nb) {
-- 
GitLab