X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fcharnames.pm;h=00faa6902c0a2b3787de19e6dec04d84b5d14198;hb=e68ec53fb89aea41859fe8c109fe9b03a3599284;hp=54f5179acd8a5b8ac643469dfc22bfe837fff0de;hpb=bd5c3bd9b8ed3edb9439b1889b9dae06dd1644d4;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/charnames.pm b/lib/charnames.pm index 54f5179..00faa69 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -5,7 +5,6 @@ use File::Spec; our $VERSION = '1.05'; use bytes (); # for $bytes::hint_bits -$charnames::hint_bits = 0x20000; # HINT_LOCALIZE_HH my %alias1 = ( # Icky 3.2 names with parentheses. @@ -192,7 +191,6 @@ sub import if (not @_) { carp("`use charnames' needs explicit imports list"); } - $^H |= $charnames::hint_bits; $^H{charnames} = \&charnames ; ## @@ -393,10 +391,8 @@ hardwired into F. A module can install custom translations (inside the scope which Cs the module) with the following magic incantation: - use charnames (); # for $charnames::hint_bits sub import { shift; - $^H |= $charnames::hint_bits; $^H{charnames} = \&translator; }