diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-01 21:17:46 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-01 21:17:46 +0000 |
| commit | 5b9c067131ee63b4afa00d1d71c771377deb6ff9 (patch) | |
| tree | f0d23e7597d8b97766a275feb1effc1c8360e3bb /lib/feature.pm | |
| parent | def9038f0e6b68e6331316ef6cd457a2bf75dab6 (diff) | |
| download | perl-5b9c067131ee63b4afa00d1d71c771377deb6ff9.tar.gz | |
Automatically set HINT_LOCALIZE_HH whenever %^H is modified.
p4raw-id: //depot/perl@27666
Diffstat (limited to 'lib/feature.pm')
| -rw-r--r-- | lib/feature.pm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/feature.pm b/lib/feature.pm index 4f03329802..d4975e411e 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -1,7 +1,6 @@ package feature; our $VERSION = '1.00'; -$feature::hint_bits = 0x00020000; # HINT_LOCALIZE_HH # (feature name) => (internal name, used in %^H) my %feature = ( @@ -93,8 +92,6 @@ to C<use feature qw(switch ~~ say err)>. =cut sub import { - $^H |= $feature::hint_bits; # Need this or %^H won't work - my $class = shift; if (@_ == 0) { require Carp; |