Ticket #15514: reinplace-warning7.diff

src/port1.0/portutil.tcl

@@ -918 +918 @@
     global env worksrcpath
     set extended 0
     set suppress 0
+    set quiet 0
     set oldlocale_exists 0
     set oldlocale "" 
     set locale ""
@@ -941 +942 @@
                 n {
                     set suppress 1
                 }
+                q {
+                    set quiet 1
+                }
                 W {
                     set dir [lindex $args 0]
                     set args [lrange $args 1 end]
@@ -957 +961 @@
         }
     }
     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]
@@ -1020 +1024 @@
         }
         close $tmpfd
 
+        if {![catch {exec cmp -s $file $tmfile}]} {
+            if {!$quiet} {
+                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