X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d7f0d5ab5464a06c0eff760183900d479dbe6728..887c3bf51abe9f83b4892c48437a7947ebb7fa5d:/Shiar_Sheet/FormatChar.pm diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm index b2e4d09..71dadfe 100644 --- a/Shiar_Sheet/FormatChar.pm +++ b/Shiar_Sheet/FormatChar.pm @@ -173,8 +173,8 @@ sub cell { } } else { - if ($_ eq 'hex' or $cell =~ /^[^a-zA-Z]$/) { - $anno = sprintf(' %04X', 'value', ord $cell); + if ($_ eq 'hex' or $input =~ /^[^a-zA-Z]$/) { + $anno = sprintf(' %04X', 'value', ord $input); last; } } @@ -248,10 +248,16 @@ sub table { my @colheads; while ($digraphs->[0] !~ /^\./) { my $cell = shift @$digraphs or last; - push @colheads, sprintf( - '<%s%s>%s', + if ($cell eq '>') { + push @colheads, '