ZWNJ, ZWJ. Any further convenience aliasing should

consider using the NamesList.

p4raw-id: //depot/perl@15867

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 6cf46a5..3f69662 100644 (file)
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -18,6 +18,11 @@ my %alias1 = (
                'FF'                    => 'FORM FEED (FF)',
                'CR'                    => 'CARRIAGE RETURN (LF)',
                'NEL'                   => 'NEXT LINE (NEL)',
+               # More convenience.  For futher convencience,
+               # it is suggested some way using using the NamesList
+               # aliases is implemented.
+               'ZWNJ'                  => 'ZERO WIDTH NON-JOINER',
+               'ZWJ'                   => 'ZERO WIDTH JOINER',
                'BOM'                   => 'BYTE ORDER MARK',
            );
 
@@ -379,7 +384,12 @@ One can also use
     BYTE ORDER MARK
     BOM
 
-though that is of course not a legal character as such.
+and
+
+    ZWNJ
+    ZWJ
+
+for ZERO WIDTH NON-JOINER and ZERO WIDTH JOINER.
 
 For backward compatibility one can use the old names for
 certain C0 and C1 controls

diff --git a/lib/charnames.t b/lib/charnames.t
index 6a961c6..3c92d04 100644 (file)
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -12,7 +12,7 @@ BEGIN {
 
 $| = 1;
 
-print "1..39\n";
+print "1..41\n";
 
 use charnames ':full';
 
@@ -226,3 +226,9 @@ print "ok 38\n";
     print "ok 39\n";
 }
 
+
+print "not " unless ord("\N{ZWNJ}") == 0x200C;
+print "ok 40\n";
+
+print "not " unless ord("\N{ZWJ}") == 0x200D;
+print "ok 41\n";