From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 3 May 2017 21:46:34 +0000 (+0200)
Subject: termcol: fix reordered msx transparency exception
X-Git-Tag: v1.10~13
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/73ee5a0c42f98006d42b04d5cc1635e25729373c

termcol: fix reordered msx transparency exception
---

diff --git a/termcol.plp b/termcol.plp
index 6d69f0c..8e61fe0 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -175,7 +175,7 @@ sub coltable {
 				my $num = $row + $col * $rows;
 				my ($rgb, $name) = split /:/, $colours->[$num], 3;
 				$name //= $rgb && $num;
-				$name = [ $name, [] ] if $term =~ /^msx/ and !$num;
+				$name = [ $name, [] ] if $term =~ /^msx/ and !$name;  # no bg for transparency
 				$name = [ $name, ['#333'] ] if $term eq 'xkcd';
 				print colcell($name, $rgb);
 			}