Ticket #15514: reinplace-warning4.diff

src/port1.0/portutil.tcl

@@ -718 +718 @@
 # Provides "sed in place" functionality
 proc reinplace {args}  {
     set extended 0
+    set quiet 0
     while 1 {
         set arg [lindex $args 0]
         if {[string index $arg 0] eq "-"} {
@@ -726 +727 @@
                 E {
                     set extended 1
                 }
+                q {
+                    set quiet 1
+                }
                 - {
                     break
                 }
@@ -738 +742 @@
         }
     }
     if {[llength $args] < 2} {
-        error "reinplace ?-E? pattern file ..."
+        error "reinplace ?-q? ?-E? pattern file ..."
     }
     set pattern [lindex $args 0]
     set files [lrange $args 1 end]
@@ -776 +780 @@
     
         close $tmpfd
     
+        if {!$quiet && ![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]
         # We need to overwrite this file
         if {[catch {file attributes $file -permissions u+w} error]} {