Ticket #27310: reinplace-backslash-patch.diff

src/port1.0/portutil.tcl

@@ -858 +858 @@
 proc reinplace {args}  {
 
     set extended 0
+    set unbackslash 0
+
     while 1 {
         set arg [lindex $args 0]
         if {[string index $arg 0] eq "-"} {
@@ -866 +868 @@
                 E {
                     set extended 1
                 }
+                u {
+                    set unbackslash 1
+                }
                 - {
                     break
                 }
@@ -878 +883 @@
         }
     }
     if {[llength $args] < 2} {
-        error "reinplace ?-E? pattern file ..."
+        error "reinplace ?-u? ?-E? pattern file ..."
     }
     set pattern [lindex $args 0]
     set files [lrange $args 1 end]
 
+    if {$unbackslash} {
+        set pattern \
+            [string map [list "\1" {\1} "\2" {\2} "\3" {\3} "\4" {\4} \
+                              "\5" {\5} "\6" {\6} "\7" {\7} ] $pattern ]
+    }
+
     foreach file $files {
         if {[catch {set tmpfile [mkstemp "/tmp/[file tail $file].sed.XXXXXXXX"]} error]} {
             global errorInfo