Remove a spurious undefined warning when using getopts.pl with -w.

[p5sagit/p5-mst-13.2.git] / lib / Text / Wrap.pm

diff --git a/lib/Text/Wrap.pm b/lib/Text/Wrap.pm
index c2c3225..00677f9 100644 (file)
--- a/lib/Text/Wrap.pm
+++ b/lib/Text/Wrap.pm
@@ -6,7 +6,7 @@ require Exporter;
 @EXPORT = qw(wrap fill);
 @EXPORT_OK = qw($columns $break $huge);
 
-$VERSION = 2001.09291;
+$VERSION = 2001.09292;
 
 use vars qw($VERSION $columns $debug $break $huge $unexpand $tabstop
        $separator);
@@ -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);