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 | |
| 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')
| -rw-r--r-- | lib/feature.pm | 3 | ||||
| -rw-r--r-- | lib/sort.pm | 2 |
2 files changed, 0 insertions, 5 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; diff --git a/lib/sort.pm b/lib/sort.pm index 326724b0f8..529077ebe1 100644 --- a/lib/sort.pm +++ b/lib/sort.pm @@ -5,8 +5,6 @@ our $VERSION = '2.00'; # The hints for pp_sort are now stored in $^H{sort}; older versions # of perl used the global variable $sort::hints. -- rjh 2005-12-19 -$sort::hint_bits = 0x00020000; # HINT_LOCALIZE_HH - $sort::quicksort_bit = 0x00000001; $sort::mergesort_bit = 0x00000002; $sort::sort_bits = 0x000000FF; # allow 256 different ones |