[138949] trunk/base/src/macports1.0/macports.tcl

[raimue at macports.org]

Revision: 138949
          https://trac.macports.org/changeset/138949
Author:   raimue at macports.org
Date:     2015-07-24 14:53:57 -0700 (Fri, 24 Jul 2015)
Log Message:
-----------
macports1.0: Handle multi-line messages for log file

For log messages with mulitple lines, repeat log level and phase for each line.
Assume that messages with -nonewline actually do not contain multiple lines.

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2015-07-24 21:46:53 UTC (rev 138948)
+++ trunk/base/src/macports1.0/macports.tcl	2015-07-24 21:53:57 UTC (rev 138949)
@@ -246,7 +246,9 @@
         if {[lindex $args 0] eq "-nonewline"} {
             puts -nonewline $chan $strprefix[lindex $args 1]
         } else {
-            puts $chan $strprefix[lindex $args 0]
+            foreach str [split [lindex $args 0] "\n"] {
+                puts $chan $strprefix$str
+            }
         }
     }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150724/52325d31/attachment.html>