X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fsort.pm;h=922f82b46915b1e39bae61558d594afb5da182e2;hb=4c38808d92b95edd5d3bf512019007a1e4a385d9;hp=e8d6446ba47498573bc21680e25a35b1d766c4f0;hpb=7b9ef14019d3c4d1aa14641dbd421c81c2cd18a4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/sort.pm b/lib/sort.pm
index e8d6446..922f82b 100644
--- a/lib/sort.pm
+++ b/lib/sort.pm
@@ -1,12 +1,10 @@
 package sort;
 
-our $VERSION = '1.02';
+our $VERSION = '2.01';
 
 # 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 = 0x04020000; # HINT_LOCALIZE_HH | HINT_HH_FOR_EVAL
-
 $sort::quicksort_bit   = 0x00000001;
 $sort::mergesort_bit   = 0x00000002;
 $sort::sort_bits       = 0x000000FF; # allow 256 different ones
@@ -21,7 +19,6 @@ sub import {
 	Carp::croak("sort pragma requires arguments");
     }
     local $_;
-    no warnings 'uninitialized';	# bitops would warn
     $^H{sort} //= 0;
     while ($_ = shift(@_)) {
 	if (/^_q(?:uick)?sort$/) {
@@ -39,7 +36,6 @@ sub import {
 	    Carp::croak("sort: unknown subpragma '$_'");
 	}
     }
-    $^H |= $sort::hint_bits;
 }
 
 sub unimport {