diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-01-04 09:06:26 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-01-04 13:08:21 -0700 |
| commit | 013b94b66f846de7fc0e23900aac69629d40b881 (patch) | |
| tree | c12c17ff45b1ae2d76c563384aa3eaa223f75518 /lib | |
| parent | 558de9fac032ae33c59eaf248f2c2ff4ef66b176 (diff) | |
| download | perl-013b94b66f846de7fc0e23900aac69629d40b881.tar.gz | |
charnames: comment, error message clarifications
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/_charnames.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/_charnames.pm b/lib/_charnames.pm index 18b71a9d1b..7f2e5f76c3 100644 --- a/lib/_charnames.pm +++ b/lib/_charnames.pm @@ -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 |