diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-03 12:51:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-03 12:51:57 +0000 |
| commit | e3e604253933e4879608487ff739a9cc6728084b (patch) | |
| tree | 82830d156c82893ae7a3f04cb6600a584e0e3e6c /lib | |
| parent | 2bce612fe74e9201b4580982cff7074a06336462 (diff) | |
| download | perl-e3e604253933e4879608487ff739a9cc6728084b.tar.gz | |
Remove dead code from sort.pm
p4raw-id: //depot/perl@28776
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/sort.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/sort.pm b/lib/sort.pm index 529077ebe1..922f82b469 100644 --- a/lib/sort.pm +++ b/lib/sort.pm @@ -1,6 +1,6 @@ package sort; -our $VERSION = '2.00'; +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 @@ -19,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$/) { @@ -37,7 +36,6 @@ sub import { Carp::croak("sort: unknown subpragma '$_'"); } } - $^H |= $sort::hint_bits; } sub unimport { |