Update the libnet tests as per #11138.

[perl5.git] / lib / charnames.pm

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