This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #17141] Text::Wrap "this should not happen" message
authorSlaven Rezic <slaven@rezic.de>
Wed, 11 Sep 2002 19:37:09 +0000 (21:37 +0200)
committerhv <hv@crypt.org>
Thu, 26 Sep 2002 07:46:43 +0000 (07:46 +0000)
Message-ID: <871y80a0my.fsf@vran.herceg.de>

p4raw-id: //depot/perl@17917

lib/Text/TabsWrap/t/wrap.t
lib/Text/Wrap.pm

index fee6ce0..369512d 100755 (executable)
@@ -122,7 +122,7 @@ DONE
 
 $| = 1;
 
-print "1..", 1 +@tests, "\n";
+print "1..", 2 +@tests, "\n";
 
 use Text::Wrap;
 
@@ -207,3 +207,9 @@ my $w = wrap('zzz','yyy',$tw);
 print (($w eq "zzz$tw") ? "ok $tn\n" : "not ok $tn");
 $tn++;
 
+{
+    local $Text::Wrap::columns = 10;
+    local $Text::Wrap::huge = "wrap";
+    print ((wrap("verylongindent", "", "foo") eq "verylongindent\nfoo") ? "ok $tn\n" : "not ok $tn");
+    $tn++;
+}
index 8dd1f6c..2327666 100644 (file)
@@ -34,6 +34,7 @@ sub wrap
        my $t = expand(join("", (map { /\s+\z/ ? ( $_ ) : ($_, ' ') } @t), $tail));
        my $lead = $ip;
        my $ll = $columns - length(expand($ip)) - 1;
+       $ll = 0 if $ll < 0;
        my $nll = $columns - length(expand($xp)) - 1;
        my $nl = "";
        my $remainder = "";
@@ -144,7 +145,7 @@ B<Example 3>
 C<Text::Wrap::wrap()> is a very simple paragraph formatter.  It formats a
 single paragraph at a time by breaking lines at word boundries.
 Indentation is controlled for the first line (C<$initial_tab>) and
-all subsquent lines (C<$subsequent_tab>) independently.  Please note: 
+all subsequent lines (C<$subsequent_tab>) independently.  Please note: 
 C<$initial_tab> and C<$subsequent_tab> are the literal strings that will
 be used: it is unlikley you would want to pass in a number.