aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/patches/tcl-mkindex-deterministic.patch
blob: 2fcef6a4f796ee5b6fa97bc8d77b229c5129a7f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
This patch ensures that the 'tclIndex' files generated by 'auto_mkindex'
are sorted in a deterministic fashion.

Fixes a non-determinism issue reported
at <https://lists.gnu.org/archive/html/guix-devel/2015-10/msg00696.html>.

--- tcl8.6.4/library/auto.tcl	2015-02-26 17:57:28.000000000 +0100
+++ tcl8.6.4/library/auto.tcl	2015-11-13 23:18:34.964831717 +0100
@@ -207,6 +207,9 @@ proc auto_mkindex {dir args} {
 	set args *.tcl
     }
 
+    # Keep file names sorted in a determistic order.
+    set args [lsort -ascii $args]
+
     auto_mkindex_parser::init
     foreach file [glob -- {*}$args] {
 	try {
@@ -241,6 +244,10 @@ proc auto_mkindex_old {dir args} {
     if {![llength $args]} {
 	set args *.tcl
     }
+
+    # Keep file names sorted in a determistic order.
+    set args [lsort -ascii $args]
+
     foreach file [glob -- {*}$args] {
 	set f ""
 	set error [catch {