Ticket #15514: reinplace-warning6.diff

src/port1.0/portutil.tcl

@@ -875 +875 @@
 
     set extended 0
     set suppress 0
+    set quiet 0
     while 1 {
         set arg [lindex $args 0]
         if {[string index $arg 0] eq "-"} {
@@ -886 +887 @@
                 n {
                     set suppress 1
                 }
+                q {
+                    set quiet 1
+                }
                 - {
                     break
                 }
@@ -898 +902 @@
         }
     }
     if {[llength $args] < 2} {
-        error "reinplace ?-E? pattern file ..."
+        error "reinplace ?-E? ?-n? ?-q? pattern file ..."
     }
     set pattern [lindex $args 0]
     set files [lrange $args 1 end]
@@ -939 +943 @@
 
         close $tmpfd
 
+        if {![catch {exec cmp -s $file $tmpfile}]} {
+            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