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

[jmr at macports.org]

Revision: 35929
          http://trac.macosforge.org/projects/macports/changeset/35929
Author:   jmr at macports.org
Date:     2008-04-10 01:29:46 -0700 (Thu, 10 Apr 2008)

Log Message:
-----------
Account for the space between words in length calculation when wrapping lines.

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-04-10 07:46:41 UTC (rev 35928)
+++ trunk/base/src/port/port.tcl	2008-04-10 08:29:46 UTC (rev 35929)
@@ -423,7 +423,7 @@
     append newline [lindex $string 0]
     set joiner " "
     foreach word [lrange $string 1 end] {
-        if {[string length $newline]+[string length $word] > $maxlen} {
+        if {[string length $newline]+[string length $word] >= $maxlen} {
             lappend lines $newline
             set newline $indent
             set joiner ""

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080410/7b05c650/attachment.html