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

raimue at macports.org raimue at macports.org
Sun Mar 14 19:49:54 PDT 2010


Revision: 64701
          http://trac.macports.org/changeset/64701
Author:   raimue at macports.org
Date:     2010-03-14 19:49:53 -0700 (Sun, 14 Mar 2010)
Log Message:
-----------
port/port.tcl: Prefer "phase" over "stage"

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-03-15 02:45:20 UTC (rev 64700)
+++ trunk/base/src/port/port.tcl	2010-03-15 02:49:53 UTC (rev 64701)
@@ -1479,9 +1479,9 @@
             set data [split $data "\n"]
 
             if {[info exists global_options(ports_log_phase)]} {
-                set stage $global_options(ports_log_phase);
+                set phase $global_options(ports_log_phase);
             } else {
-                set stage "\[a-z\]*"
+                set phase "\[a-z\]*"
             }
 
             if {[info exists global_options(ports_log_verbosity)]} {
@@ -1491,9 +1491,9 @@
             }
             set match ""
             foreach line $data {
-                set exp "^:($prefix|any):($stage|any) (.*)$"
-                if {[regexp $exp $line -> priority phase msg] == 1} {
-                    puts "[macports::ui_prefix_default $priority]$msg"
+                set exp "^:($prefix|any):($phase|any) (.*)$"
+                if {[regexp $exp $line -> lpriority lphase lmsg] == 1} {
+                    puts "[macports::ui_prefix_default $lpriority]$lmsg"
                 }
             }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100314/64144ac9/attachment.html>


More information about the macports-changes mailing list