From: Ben Tilly <ben_tilly@operamail.com>
Date: Fri, 1 Sep 2000 20:23:16 +0000 (-0400)
Subject: Apparently avoiding the swapping is too costly.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4a64502da04d242cd0a5ccb9208671d482e51b5;p=p5sagit%2Fp5-mst-13.2.git

Apparently avoiding the swapping is too costly.
Subject: Re: the door is closed.
Message-ID: <LAW2-F2963JkUwWpSWe00000904@hotmail.com>

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

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 112b1ed..79905f8 100644
--- a/pod/perlfaq4.pod
+++ b/pod/perlfaq4.pod
@@ -1189,7 +1189,6 @@ Use this:
         my $i;
         for ($i = @$array; --$i; ) {
             my $j = int rand ($i+1);
-            next if $i == $j;
             @$array[$i,$j] = @$array[$j,$i];
         }
     }