sort pragma tweaks.

p4raw-id: //depot/perl@13263

diff --git a/lib/sort.pm b/lib/sort.pm
index 5256a5f..c1ea71c 100644 (file)
--- a/lib/sort.pm
+++ b/lib/sort.pm
@@ -22,6 +22,7 @@ sub import {
     }
     $^H |= $sort::hint_bits;
     local $_;
+    no warnings 'uninitialized';       # $^H{SORT} bitops would warn
     while ($_ = shift(@_)) {
        if (/^q(?:uick)?sort$/) {
            $^H{SORT} &= ~$sort::sort_bits;
@@ -74,7 +75,7 @@ sort - perl pragma to control sort() behaviour
 
     use sort 'qsort';          # alias for quicksort
 
-    # alias for mergesort: insenstive and stable
+    # alias for mergesort: insensitive and stable
     use sort 'safe';           
 
     # alias for raw quicksort: sensitive and nonstable