[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 (file)
--- 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);