termcol: distinguish separate tbody for shiar32 greyscale rows

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 0aa22410d34425e32ba635a42e6427be3f12a39f..bf0001bab25d830c62ea1d8db1c20407e3cbdaf2 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -282,6 +282,7 @@ use Shiar_Sheet::Colour 1.05;
                        [qw(         0 6C71C4:3J         0 )],
                        [qw( 362747:1K 75507B:3K F06FCB:5K )],
                        [qw(         0 D33662:3L         0 )],
+                       undef,
                        [qw( 000000:0  686868:2  CCCCCC:4  )],
                        [qw( 444444:1  B0B0B0:3  FFFFFF:5  )],
                ],

diff --git a/termcol.plp b/termcol.plp
index 2c16fe9999d38001eb8cc167e09337443503c7ee..bd9fd538f8117860593facfafecb8d588bf6625c 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -134,6 +134,10 @@ sub coltable {
                say '<table class="color mapped">';
                say sprintf '<caption>%s</caption>', $caption;
                for my $row (@$table) {
+                       if (!$row) {
+                               say '<tbody>';
+                               next;
+                       }
                        print '<tr>';
                        print colcell(ref $_ ? @$_ : $_ ? reverse split /:/ : undef) for @$row;
                }