termcol: fix cell description fallback of index 0

diff --git a/termcol.plp b/termcol.plp
index 60afba6d564e5dac1829d8f3bcfa88795eceed70..189b89c6a3376e4029f5d514d51395f6d4c98dd3 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -32,7 +32,7 @@ use Shiar_Sheet::Colour '1.03';
 use List::Util qw( min max );
 
 sub colcell {
-       my $name = shift or return "<td colspan=3>\n";
+       my $name = shift // return "<td colspan=3>\n";
        my $col = Shiar_Sheet::Colour->new(@_);
        my $minhex = $col->rgb24;
        my $css     = '#' . $col->rgb48;