Ticket #15514: reinplace-warning8.diff

port1.0/portutil.tcl

@@ -919 +919 @@
     global env workpath worksrcpath macosx_version
     set extended 0
     set suppress 0
+    set quiet 0
     set oldlocale_exists 0
     set oldlocale "" 
     set locale ""
@@ -942 +943 @@
                 n {
                     set suppress 1
                 }
+                q {
+                    set quiet 1
+                }
                 W {
                     set dir [lindex $args 0]
                     set args [lrange $args 1 end]
@@ -958 +962 @@
         }
     }
     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]
@@ -1037 +1041 @@
         }
         close $tmpfd
 
+        if {!$quiet} {
+            if {![catch {exec cmp -s $file $tmpfile}]} {
+                ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]"
+            }
+        }
+
         set attributes [file attributes $file]
         # start gsoc08-privileges
         chownAsRoot $file