Revision: 124909 https://trac.macports.org/changeset/124909 Author: khindenburg@macports.org Date: 2014-08-30 16:43:58 -0700 (Sat, 30 Aug 2014) Log Message: ----------- base: portutil.tcl: Add quiet option for reinplace - currently doesn't do anything - once a macports is released, the rest of code can be committed to warn if reinplace doesn't change anything #15514 Modified Paths: -------------- trunk/base/src/port1.0/portutil.tcl Modified: trunk/base/src/port1.0/portutil.tcl =================================================================== --- trunk/base/src/port1.0/portutil.tcl 2014-08-30 23:21:07 UTC (rev 124908) +++ trunk/base/src/port1.0/portutil.tcl 2014-08-30 23:43:58 UTC (rev 124909) @@ -919,6 +919,9 @@ global env workpath worksrcpath macosx_version set extended 0 set suppress 0 + # once a macports version has been released, add the rest of the + # code from https://trac.macports.org/ticket/15514 + set quiet 0 set oldlocale_exists 0 set oldlocale "" set locale "" @@ -942,6 +945,9 @@ n { set suppress 1 } + q { + set quiet 1 + } W { set dir [lindex $args 0] set args [lrange $args 1 end] @@ -958,7 +964,7 @@ } } if {[llength $args] < 2} { - error "reinplace ?-E? ?-n? ?-W dir? pattern file ..." + error "reinplace ?-E? ?-n? ?-q? ?-W dir? pattern file ..." } set pattern [lindex $args 0] set files [lrange $args 1 end]