printf "<caption>%s</caption>\n", $caption;
for my $num (0 .. $#{$colours}) {
my ($rgb, $name) = split /:/, $colours->[$num], 3;
- $name ||= $num;
+ $name //= $num;
$name = [ $name, [] ] if $term =~ /^msx/ and !$num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);