forked from gentoo/gentoo
-
Notifications
You must be signed in to change notification settings - Fork 0
/
tcllib-1.14-test.patch
39 lines (34 loc) · 1.34 KB
/
tcllib-1.14-test.patch
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
30
31
32
33
34
35
36
37
38
39
Index: support/devel/sak/validate/syntax.tcl
==================================================================
--- support/devel/sak/validate/syntax.tcl
+++ support/devel/sak/validate/syntax.tcl
@@ -192,11 +192,13 @@
if {[string equal $c rename]} continue
if {[string equal $c namespace]} continue
interp eval $ip [list ::rename $c {}]
}
- interp eval $ip [list ::namespace delete ::tcl]
+ if {![package vsatisfies [package present Tcl] 8.6]} {
+ interp eval $ip [list ::namespace delete ::tcl]
+ }
interp eval $ip [list ::rename namespace {}]
interp eval $ip [list ::rename rename {}]
foreach m {
pcx::register unknown
Index: support/devel/sak/validate/testsuites.tcl
==================================================================
--- support/devel/sak/validate/testsuites.tcl
+++ support/devel/sak/validate/testsuites.tcl
@@ -137,11 +137,13 @@
if {[string equal $c rename]} continue
if {[string equal $c namespace]} continue
interp eval $ip [list ::rename $c {}]
}
- interp eval $ip [list ::namespace delete ::tcl]
+ if {![package vsatisfies [package present Tcl] 8.6]} {
+ interp eval $ip [list ::namespace delete ::tcl]
+ }
interp eval $ip [list ::rename namespace {}]
interp eval $ip [list ::rename rename {}]
foreach m {
testing unknown useLocal useLocalKeep useAccel