diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-07 18:18:34 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-14 10:56:56 -0700 |
| commit | 889a6fe005094c7bbd6435cd443e8ce2f3c23654 (patch) | |
| tree | a683e2215927107b27a4f9eb0ac31fe583afdcd5 /lib | |
| parent | d9f23c728997f4a36eaaba74c9acd1460dc23593 (diff) | |
| download | perl-889a6fe005094c7bbd6435cd443e8ce2f3c23654.tar.gz | |
charnames: Add %Carp::Internal entry
This will be useful in a future commit. charnames is about to be split
into two modules, one called by the other, and warnings::warn() would
otherwise return if warnings are enabled in the parent module.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/charnames.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index b920c4a3ba..990820058b 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -2,7 +2,7 @@ package charnames; use strict; use warnings; use File::Spec; -our $VERSION = '1.26'; +our $VERSION = '1.27'; use unicore::Name; # mktables-generated algorithmically-defined names use bytes (); # for $bytes::hint_bits @@ -907,6 +907,7 @@ sub lookup_name ($$$) { } } +$Carp::Internal{ (__PACKAGE__) } = 1; # Here, have the utf8. If the return is to be an ord, must be any single # character. |