Revision
138949
Author
raimue@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

Diff

Modified: trunk/base/src/macports1.0/macports.tcl (138948 => 138949)


--- 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
+            }
         }
     }
 }