[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