From: Bram <p5p@perl.wizbit.be>
Date: Sun, 28 Jun 2009 10:38:03 +0000 (+0200)
Subject: Extra examples for 'sort'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9320c62d9034275ce0ce1fa301011823fbbe2a4;p=p5sagit%2Fp5-mst-13.2.git

Extra examples for 'sort'
---

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 4593352..2169a44 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -5365,6 +5365,24 @@ Examples:
     use sort '_mergesort';  # note discouraging _
     @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old;
 
+
+Warning: Care is required when sorting the list returned from a function.
+
+If you want to sort returned by the function call: find_records(@key) then
+you can use:
+    @contact = sort { $a cmp $b } find_records @key;
+    @contact = sort +find_records(@key);
+    @contact = sort &find_records(@key);
+    @contact = sort(find_records(@key));
+
+If instead you want to sort the array @key with the comparison routine
+find_records then you can use:
+    @contact = sort { find_records() } @key;
+    @contact = sort find_records(@key);
+    @contact = sort(find_records @key);
+    @contact = sort(find_records (@key));
+
+
 If you're using strict, you I<must not> declare $a
 and $b as lexicals.  They are package globals.  That means
 if you're in the C<main> package and type