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

[raimue at macports.org]

Revision: 65232
          http://trac.macports.org/changeset/65232
Author:   raimue at macports.org
Date:     2010-03-24 03:43:54 -0700 (Wed, 24 Mar 2010)
Log Message:
-----------
port/port.tcl:
Fix wrapline by omitting indent on first line only as intended

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-03-24 07:54:31 UTC (rev 65231)
+++ trunk/base/src/port/port.tcl	2010-03-24 10:43:54 UTC (rev 65232)
@@ -498,8 +498,10 @@
     }
 
     set splitstring {}
+    set indentline $indentfirstline
     foreach line [split $string "\n"] {
-        lappend splitstring [wrapline $line $maxlen $indent $indentfirstline]
+        lappend splitstring [wrapline $line $maxlen $indent $indentline]
+        set indentline 1
     }
     return [join $splitstring "\n"]
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100324/eee22e30/attachment.html>