This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sort pragma tweaks.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 25 Nov 2001 18:12:31 +0000 (18:12 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 25 Nov 2001 18:12:31 +0000 (18:12 +0000)
p4raw-id: //depot/perl@13263

lib/sort.pm

index 5256a5f..c1ea71c 100644 (file)
@@ -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