From: perl-5.8.0@ton.iguana.be <perl-5.8.0@ton.iguana.be>
Date: Sun, 6 Jun 2004 21:50:19 +0000 (+0000)
Subject: [perl #30073] Misleading docs of Text::Wrap
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b614c55f5b832a2a6bef87f61ab8323c0d06c60;hp=78ea37eb92d97de2362f1599aa0c3f43c5e70866;p=p5sagit%2Fp5-mst-13.2.git

[perl #30073] Misleading docs of Text::Wrap
From: perl-5.8.0@ton.iguana.be (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.9-30073-89834.19.0927626986204@perl.org>

p4raw-id: //depot/perl@22903
---

diff --git a/lib/Text/Wrap.pm b/lib/Text/Wrap.pm
index c2c3225..ec5e166 100644
--- a/lib/Text/Wrap.pm
+++ b/lib/Text/Wrap.pm
@@ -120,7 +120,7 @@ B<Example 1>
 	print wrap($initial_tab, $subsequent_tab, @text);
 	print fill($initial_tab, $subsequent_tab, @text);
 
-	@lines = wrap($initial_tab, $subsequent_tab, @text);
+	$lines = wrap($initial_tab, $subsequent_tab, @text);
 
 	@paragraphs = fill($initial_tab, $subsequent_tab, @text);