[46810] trunk/base/src/port/port.tcl

[perry at macports.org]

Revision: 46810
          http://trac.macports.org/changeset/46810
Author:   perry at macports.org
Date:     2009-02-13 21:23:30 -0800 (Fri, 13 Feb 2009)
Log Message:
-----------
port/port.tcl - Fixed bug in wrapline.
* maxlen was not being reset to its original length when
  indentfirstline == 0.

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-02-14 00:52:27 UTC (rev 46809)
+++ trunk/base/src/port/port.tcl	2009-02-14 05:23:30 UTC (rev 46810)
@@ -499,13 +499,15 @@
             lappend lines $newline
             set newline $indent
             set joiner ""
+            # If indentfirstline is set to 0, reset maxlen to its
+            # original length after appending the first line to lines.
+            if {$first == 1 && $indentfirstline == 0} {
+                set maxlen [expr $maxlen + [string length $indent]]
+            }
+            set first 0
         }
         append newline $joiner $word
         set joiner " "
-        set first 0
-        if {$first == 1 && $indentfirstline == 0} {
-            set maxlen [expr $maxlen + [string length $indent]]
-        }
     }
     lappend lines $newline
     return [join $lines "\n"]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090213/21473811/attachment.html>