From 889a6fe005094c7bbd6435cd443e8ce2f3c23654 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 7 Dec 2011 18:18:34 -0700 Subject: [PATCH] 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. --- lib/charnames.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/charnames.pm b/lib/charnames.pm index b920c4a..9908200 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. -- 2.7.4