From a6f73126160100b236ab93b76bf1af5f080c94f0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 21 Dec 2015 01:23:55 +0100
Subject: [PATCH 1/1] termcol: fix reordered named descriptions

---
 termcol.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/termcol.plp b/termcol.plp
index 0068a78..b79f841 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -162,7 +162,7 @@ for my $term (@termlist) {
 
 sub colorder {
 	my ($palette, $reorder) = @_;
-	return [ map { $palette->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+	return [ map { $palette->[$_] =~ s/:(?![^:])|$/:$_/r } @{$reorder} ]
 		if $reorder;
 	return $palette;
 }
-- 
2.30.0