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 (file)
--- 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];
         }
     }