From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 21 Dec 2015 00:23:55 +0000 (+0100)
Subject: termcol: fix reordered named descriptions
X-Git-Tag: v1.9~51
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/a6f73126160100b236ab93b76bf1af5f080c94f0

termcol: fix reordered named descriptions
---

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;
 }