嗨,
我认为我已经找到了 clojure.tools.namespace 中TNS-6漏洞的解决方案。我有一个一致的复现和一行修复补丁的形式的解决方案(请参阅补丁以获取更多详细信息)。所有测试仍然通过,尽管我不确定它们是否覆盖了更改。我还在一个数量众多的本地依赖型库中测试了该解决方案,并且它解决了问题。
然而,我不是 Clojure 贡献者,所以我无法评论或提交补丁或对相关 Jira 工单进行评论。
From b5a62f894e049a09d5fcf099ac7b4d6591fb4f18 Mon Sep 17 00:00:00 2001
From: zalky <[email protected]>
Date: Mon, 24 May 2021 13:08:30 -0400
Subject: [PATCH] Fix TNS-6: fully remove ns from deps graph
The clojure.tools.namespace.dependency/remove-node fn removes a
namespace's :dependencies set from the graph (outgoing edges), but
does not remove that namespace from the :dependents set of other
namespaces (ingoing edges). If a namespace is removed and one of its
dependencies is changed at the same time, as commonly occurs when
switching branches, then the removed namespace is still in the
:dependents of the changed namespace when it is reloaded. As all the
of the dependents of a changed namespace are also reloaded, this
throws a missing namespace error.
The resolution is to use clojure.tools.namespace.depedency/remove-all
to remove both outgoing (:dependencies) and ingoing (:dependents)
edges in the dependency graph.
However, care must be taken when choosing the point of change, because
clojure.tools.namespace.track/add relies on the partial removal
behaviour of clojure.tools.namespace.track/remove-deps. It uses
remove-deps to wipe the dependencies of a node, and cannot know how to
re-insert dependents if lost. Therefore the point of change should be
in clojure.tools.namespace.track/remove.
---
src/main/clojure/clojure/tools/namespace/track.cljc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/main/clojure/clojure/tools/namespace/track.cljc b/src/main/clojure/clojure/tools/namespace/track.cljc
index 683c35d..ce666d5 100644
--- a/src/main/clojure/clojure/tools/namespace/track.cljc
+++ b/src/main/clojure/clojure/tools/namespace/track.cljc
@@ -96,7 +96,7 @@
:or {load (), unload (), deps (dep/graph)}} tracker
known (set (dep/nodes deps))
removed-names (filter known names)
- new-deps (remove-deps deps removed-names)
+ new-deps (reduce dep/remove-all deps removed-names)
changed (affected-namespaces deps removed-names)]
(assoc tracker
::deps new-deps
--
2.30.1 (Apple Git-130)
[补丁在进一步测试后更新]