X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/36cc824ce76ec496c1eecfa33d2d3c8957e84951..c1032338b64b1cec81af6139847d69089acfa69d:/termcol.plp diff --git a/termcol.plp b/termcol.plp index affceb9..51efa0a 100644 --- a/termcol.plp +++ b/termcol.plp @@ -135,7 +135,7 @@ for my $term (@termlist) { printf "%s\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 '', colcell($name, $rgb);