From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 24 Apr 2017 00:06:31 +0000 (+0200)
Subject: unicode: subtitled code point of original input
X-Git-Tag: v1.10~72
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/e42bf56734a8ef1b890fb42df3dbb719456de225?ds=sidebyside

unicode: subtitled code point of original input

Fix for diacritics with a string representation.
---

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index 9a00276..d7c59c1 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(' <small class="%s">%04X</small>', 'value', ord $cell);
+				if ($_ eq 'hex' or $input =~ /^[^a-zA-Z]$/) {
+					$anno = sprintf(' <small class="%s">%04X</small>', 'value', ord $input);
 					last;
 				}
 			}