This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames: comment, error message clarifications
authorKarl Williamson <public@khwilliamson.com>
Fri, 4 Jan 2013 16:06:26 +0000 (09:06 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 4 Jan 2013 20:08:21 +0000 (13:08 -0700)
lib/_charnames.pm
t/lib/charnames/alias

index 18b71a9..7f2e5f7 100644 (file)
@@ -160,7 +160,7 @@ sub alias (@) # Set up a single alias
       $value = CORE::hex $1;
     }
     if ($value =~ $decimal_qr) {
-        no warnings qw(non_unicode surrogate nonchar); # Allow any non-malformed
+        no warnings qw(non_unicode surrogate nonchar); # Allow any of these
         $^H{charnames_ord_aliases}{$name} = pack("U", $value);
 
         # Use a canonical form.
@@ -218,7 +218,7 @@ sub alias_file ($)  # Reads a file containing alias definitions
     $file = "unicore/${arg}_alias.pl";
   }
   else {
-    croak "Charnames alias files can only have identifier characters";
+    croak "Charnames alias file names can only have identifier characters";
   }
   if (my @alias = do $file) {
     @alias == 1 && !defined $alias[0] and
index a71c657..ddf797d 100644 (file)
@@ -218,7 +218,7 @@ use charnames ":full", ":alias" => "xy 7-";
 "Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
 EXPECT
 OPTIONS regex
-Charnames alias files can only have identifier characters at
+Charnames alias file names can only have identifier characters at
 ########
 # NAME alias with non_absolute (existing) file name (which it should /not/ use)
 use warnings;