termcol: fix reordered named descriptions
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 21 Dec 2015 00:23:55 +0000 (01:23 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 5 Jan 2016 00:05:07 +0000 (01:05 +0100)
termcol.plp

index 0068a78..b79f841 100644 (file)
@@ -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;
 }