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

[raimue at macports.org]

Revision: 63272
          http://trac.macports.org/changeset/63272
Author:   raimue at macports.org
Date:     2010-01-30 20:28:00 -0800 (Sat, 30 Jan 2010)
Log Message:
-----------
port/port.tcl: Add priority prefixes again when replaying log file in action_log

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-01-31 04:20:15 UTC (rev 63271)
+++ trunk/base/src/port/port.tcl	2010-01-31 04:28:00 UTC (rev 63272)
@@ -1491,14 +1491,12 @@
             }
             set match ""
             foreach line $data {
-                set exp "^:($prefix|any):($stage|any) .*$"
-                regexp $exp $line match
-                if {$match == $line} {
-                    regsub "^:\[a-z\]*:\[a-z\]* "  $line "" line
-                    puts $line
+                set exp "^:($prefix|any):($stage|any) (.*)$"
+                if {[regexp $exp $line -> priority phase msg] == 1} {
+                    puts "[macports::ui_prefix_default $priority]$msg"
                 }
             }
-            
+
             close $fp
         } else {
             ui_msg "Log file for port $portname not found"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100130/4ab29068/attachment.html>