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 9a002762fff0583acbd5f0984361dd5f97a8940e..d7c59c171c5c22db71b0d5ac06b08f0aa8d4efa5 100644 (file)
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -173,8 +173,8 @@ sub cell {
                                }
                        }
                        else {
                                }
                        }
                        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;
                                }
                        }
                                        last;
                                }
                        }