termcol: fix reordered named descriptions

diff --git a/termcol.plp b/termcol.plp
index 0068a78d7b5c73f998214891b79f52b53c10983b..b79f8410d931900b0765bcc2cb8233e2d6a7f3c8 100644 (file)
--- 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;
 }