diff options
Diffstat (limited to 'pod/perlfaq4.pod')
| -rw-r--r-- | pod/perlfaq4.pod | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index ecbd65243e..79905f88ce 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -370,7 +370,7 @@ you can. Is that the pencil's fault? Of course it isn't. The date and time functions supplied with Perl (gmtime and localtime) supply adequate information to determine the year well beyond 2000 (2038 is when trouble strikes for 32-bit machines). The year returned -by these functions when used in an array context is the year minus 1900. +by these functions when used in a list context is the year minus 1900. For years between 1910 and 1999 this I<happens> to be a 2-digit decimal number. To avoid the year 2000 problem simply do not treat the year as a 2-digit number. It isn't. @@ -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]; } } |