X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ba377adce826b1c5956aa225c04ec2fe0a58db32..ff84da253ec62aa4a552d8b98aae013b0c7ea5f8:/termcol.plp diff --git a/termcol.plp b/termcol.plp index 686316c..44ee75b 100644 --- a/termcol.plp +++ b/termcol.plp @@ -75,7 +75,8 @@ if ($get{v}) { my @termlist = qw( cga xterm tango app html xkcd ); push @termlist, qw( c64 msx2 mac2 risc arnegame ) if exists $get{v}; for my $term (@termlist) { - my ($info, @index) = @{ $palettes->{$term} }; + my $info = $palettes->{$term}; + ref $info eq 'HASH' or next; my $caption = $info->{name} // $term; $caption = sprintf('<%s %s>%s%1$s>', $info->{href} ? 'a' : 'span', @@ -87,15 +88,17 @@ for my $term (@termlist) { $caption, ) if $info->{href} or $info->{title}; - print '