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

diff --git a/lib/charnames.t b/lib/charnames.t
index 3123127..6a961c6 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -138,7 +138,7 @@ sub to_bytes {
     print "ok 17\n";
 
     # Unused Hebrew.
-    print "not " unless charnames::viacode(0x0590) eq chr(0xFFFD);
+    print "not " if defined charnames::viacode(0x0590);
     print "ok 18\n";
 }