From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 18 Feb 2001 02:25:55 +0000 (+0000)
Subject: Integrate change #8818 from maintperl, a FAQ nit.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4341a650d4ab04956b1f7ad537e1692aed7ed15;p=p5sagit%2Fp5-mst-13.2.git

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..)
---

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 1198f18..8c570c2 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