Retracting \N{U+HHHH}.

p4raw-id: //depot/perl@9025

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 1bb89b4..875c0a5 100644 (file)
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -86,9 +86,6 @@ charnames - define character names for C<\N{named}> string literal escape.
   use charnames qw(cyrillic greek);
   print "\N{sigma} is Greek sigma, and \N{be} is Cyrillic b.\n";
 
-  use charnames ...; # either :full or :short will do
-  print "This is Unicode code point \N{U+263A}\n"; # explicit code point
-
 =head1 DESCRIPTION
 
 Pragma C<use charnames> supports arguments C<:full>, C<:short> and

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 5adf241..122f5ea 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1564,11 +1564,6 @@ to your Perl administrator.
 your logic, or you need to put a conditional in to guard against
 meaningless input.
 
-=item Illegal hexadecimal code on \N{U+...}
-
-(F) You must specify a hexadecimal code for the Unicode codepoint
-after the "U+" inside your "\N{}".
-
 =item Illegal hexadecimal digit %s ignored
 
 (W digit) You may have tried to use a character other than 0 - 9 or

diff --git a/pod/perlretut.pod b/pod/perlretut.pod
index 2647076..a77b87e 100644 (file)
--- a/pod/perlretut.pod
+++ b/pod/perlretut.pod
@@ -1657,9 +1657,9 @@ or deciphering someone else's hexadecimal Unicode regexp is about as
 much fun as programming in machine code.  So another way to specify
 Unicode characters is to use the S<B<named character> > escape
 sequence C<\N{name}>.  C<name> is a name for the Unicode character, as
-specified in the Unicode standard, or "U+" followed by the hexadecimal
-code of the character.  For instance, if we wanted to represent or
-match the astrological sign for the planet Mercury, we could use
+specified in the Unicode standard.  For instance, if we wanted to
+represent or match the astrological sign for the planet Mercury, we
+could use
 
     use utf8;              # We will be doing Unicode processing
     use charnames ":full"; # use named chars with Unicode full names

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 8ad098e..6a8a8be 100644 (file)
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..16\n";
+print "1..15\n";
 
 use charnames ':full';
 
@@ -63,7 +63,6 @@ sub to_bytes {
 
 {
     use charnames ':full';
-
     print "not " unless "\x{263a}" eq "\N{WHITE SMILING FACE}";
     print "ok 6\n";
     print "not " unless length("\x{263a}") == 1;
@@ -82,6 +81,7 @@ sub to_bytes {
 
 {
    use charnames qw(:full);
+   use utf8;
    
     my $x = "\x{221b}";
     my $named = "\N{CUBE ROOT}";
@@ -92,7 +92,7 @@ sub to_bytes {
 
 {
    use charnames qw(:full);
-
+   use utf8;
    print "not " unless "\x{100}\N{CENT SIGN}" eq "\x{100}"."\N{CENT SIGN}";
    print "ok 14\n";
 }
@@ -106,12 +106,3 @@ sub to_bytes {
 
 }
 
-
-{
-  use charnames ':full';
-
-  print "not "
-      unless "\N{U+263A}" eq "\N{WHITE SMILING FACE}";
-  print "ok 16\n";
-}
-

diff --git a/toke.c b/toke.c
index 063ccd1..4e90201 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1518,7 +1518,7 @@ S_scan_const(pTHX_ char *start)
 
            /* \N{latin small letter a} is a named character */
            case 'N':
-               s++;
+               ++s;
                if (*s == '{') {
                    char* e = strchr(s, '}');
                    SV *res;
@@ -1530,30 +1530,9 @@ S_scan_const(pTHX_ char *start)
                        e = s - 1;
                        goto cont_scan;
                    }
-                   if (s[1] == 'U' && s[2] == '+') { /* \N{U+HHHH} */
-                       STRLEN alen = e - s - 3;
-                       STRLEN blen;
-                       UV uv = (UV)scan_hex(s + 3, alen, &blen);
-
-                       if (blen == alen) {
-                           res = newSVpvn(s, (uv >> 8) + 1); /* filler */
-                           str = (char *)uv_to_utf8((U8*)SvPVX(res), uv);
-                           SvCUR_set(res, str - SvPVX(res));
-                           *str = '\0';
-                           if (uv > 0x7f)
-                               SvUTF8_on(res);
-                       }
-                       else {
-                           yyerror("Illegal hexadecimal code on \\N{U+...}");
-                           e = s - 1;
-                           goto cont_scan;
-                       }
-                   }
-                   else {
-                       res = newSVpvn(s + 1, e - s - 1);
-                       res = new_constant( Nullch, 0, "charnames",
-                                           res, Nullsv, "\\N{...}" );
-                   }
+                   res = newSVpvn(s + 1, e - s - 1);
+                   res = new_constant( Nullch, 0, "charnames",
+                                       res, Nullsv, "\\N{...}" );
                    if (has_utf8)
                        sv_utf8_upgrade(res);
                    str = SvPV(res,len);