X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fcharnames.pm;h=6cf46a58f0313689d2f1a365a2ed2e3213c20f75;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=549a8c205156c3ba36172bcd20ddad4177f012bf;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 549a8c2..6cf46a5 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -199,7 +199,7 @@ sub viacode
 
     if ($code > 0x10FFFF) {
 	carp "Unicode characters only allocated up to 0x10FFFF (you asked for $hex)";
-	return "\x{FFFD}";
+	return;
     }
 
     return $viacode{$hex} if exists $viacode{$hex};
@@ -209,8 +209,7 @@ sub viacode
     if ($txt =~ m/^$hex\t\t(.+)/m) {
         return $viacode{$hex} = $1;
     } else {
-	carp "Unknown charcode '$hex'";
-        return "\x{FFFD}";
+        return;
     }
 }