charnames.pm: return ord not chr

An error leg in charnames.pm was returning the wrong type.  This fixes
it.  A later commit will change the .t to add "use warnings" so this fix
will be noticed.

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 96552d0..3bd9d22 100644 (file)
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -543,7 +543,7 @@ sub lookup_name {
     unless (@off) {
       return if $runtime;
       carp "Unknown charname '$name'";
-      return "\x{FFFD}";
+      return 0xFFFD;
     }
 
     ##