Change 28558 by [EMAIL PROTECTED] on 2006/07/12 12:29:58
I prefer array indexes that start from 0 in beginner docs
Affected files ...
... //depot/perl/pod/perlintro.pod#12 edit
Differences ...
==== //depot/perl/pod/perlintro.pod#12 (text) ====
Index: perl/pod/perlintro.pod
--- perl/pod/perlintro.pod#11~28554~ 2006-07-12 02:40:14.000000000 -0700
+++ perl/pod/perlintro.pod 2006-07-12 05:29:58.000000000 -0700
@@ -376,7 +376,7 @@
print "This element is $_\n";
}
- print $list[$_] foreach 1 .. $max;
+ print $list[$_] foreach 0 .. $max;
# you don't have to use the default $_ either...
foreach my $key (keys %hash) {
End of Patch.