Revision
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

Diff

Modified: trunk/base/src/port1.0/portutil.tcl (124908 => 124909)


--- 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]