12 lines
462 B
Text
12 lines
462 B
Text
Index: library/safe.tcl
|
|
--- library/safe.tcl.orig
|
|
+++ library/safe.tcl
|
|
@@ -344,6 +344,8 @@ proc ::safe::InterpSetConfig {slave access_path static
|
|
# Prevent the addition of dirs on the tm list to the
|
|
# result if they are already known.
|
|
if {[dict exists $remap_access_path $dir]} {
|
|
+ # The dir must nevertheless be added to the slave's tm_path. Bug [eb268f246f].
|
|
+ lappend slave_tm_path [dict get $remap_access_path $dir]
|
|
continue
|
|
}
|
|
|