diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-18 02:25:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-18 02:25:55 +0000 |
| commit | a4341a650d4ab04956b1f7ad537e1692aed7ed15 (patch) | |
| tree | 71a0a083401f7637c0fe60c10805c7c37415a8cc /pod/perlfaq4.pod | |
| parent | b12202d0e682a0edaf2713362a68d442277d4f6f (diff) | |
| download | perl-a4341a650d4ab04956b1f7ad537e1692aed7ed15.tar.gz | |
Integrate change #8818 from maintperl, a FAQ nit.
p4raw-link: @8818 on //depot/maint-5.6/perl: 26f0d336d3c5218555245ccab94cfd5b1ccf5312
p4raw-id: //depot/perl@8819
p4raw-integrated: from //depot/maint-5.6/perl@8816 'copy in'
pod/perlfaq4.pod (@8627..)
Diffstat (limited to 'pod/perlfaq4.pod')
| -rw-r--r-- | pod/perlfaq4.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index 1198f18a4f..8c570c2683 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -953,7 +953,7 @@ ordered and whether you wish to preserve the ordering. If @in is sorted, and you want @out to be sorted: (this assumes all true values in the array) - $prev = 'nonesuch'; + $prev = "not equal to $in[0]"; @out = grep($_ ne $prev && ($prev = $_, 1), @in); This is nice in that it doesn't use much extra memory, simulating |