Tcl Library Source Code

Artifact 0a03096856d50374ce8d9f4e2b610b7a5ff2fa86487016d7b4a96416a49af30e:

Attachment "mkzip.tcl.patch" to ticket [b9725d990b] added by hromojaro 2019-03-08 20:04:17. (unpublished)

---

--- mkzip.tcl.orig	2019-03-08 20:26:58.610004578 +0100
+++ mkzip.tcl	2019-03-08 20:27:52.542600740 +0100
@@ -64,7 +64,7 @@
 proc ::zipfile::mkzip::walk {base {excludes ""} {match *} {path {}}} {
     set result {}
     set imatch [file join $path $match]
-    set files [glob -nocomplain -tails -types f -directory $base $imatch]
+    set files [glob -nocomplain -tails -types f -directory $base -- $imatch]
     foreach file $files {
         set excluded 0
         foreach glob $excludes {
@@ -75,7 +75,7 @@
         }
         if {!$excluded} {lappend result $file}
     }
-    foreach dir [glob -nocomplain -tails -types d -directory $base $imatch] {
+    foreach dir [glob -nocomplain -tails -types d -directory $base -- $imatch] {
         set subdir [walk $base $excludes $match $dir]
         if {[llength $subdir]>0} {
             set result [concat $result [list $dir] $subdir]