From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 18:12:31 +0000 (+0000)
Subject: sort pragma tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=726de688badb2dba66cc57284f3430b731015d48;p=p5sagit%2Fp5-mst-13.2.git

sort pragma tweaks.

p4raw-id: //depot/perl@13263
---

diff --git a/lib/sort.pm b/lib/sort.pm
index 5256a5f..c1ea71c 100644
--- 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