From 73ee5a0c42f98006d42b04d5cc1635e25729373c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 3 May 2017 23:46:34 +0200
Subject: [PATCH 1/1] termcol: fix reordered msx transparency exception

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

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