[124909] trunk/base/src/port1.0/portutil.tcl

[khindenburg at macports.org]

Revision: 124909
          https://trac.macports.org/changeset/124909
Author:   khindenburg at 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]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140830/57274ca0/attachment-0001.html>