Deobfuscate Fisher-Yates example code

Message-Id: <Pine.SOL.3.96.1010911231925.688A-100000@simpukka>

p4raw-id: //depot/perl@12004

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 7dcb881..bf24254 100644 (file)
--- a/pod/perlfaq4.pod
+++ b/pod/perlfaq4.pod
@@ -1211,8 +1211,8 @@ If not, you can use this:
     # generate a random permutation of @array in place
     sub fisher_yates_shuffle {
         my $array = shift;
-        my $i;
-        for ($i = @$array; --$i; ) {
+        my $i = @$array;
+        while (--$i) {
             my $j = int rand ($i+1);
             @$array[$i,$j] = @$array[$j,$i];
         }