aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/library.ml
diff options
context:
space:
mode:
Diffstat (limited to 'library/library.ml')
-rw-r--r--library/library.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/library/library.ml b/library/library.ml
index 7b20f13bf..c812819a2 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -632,6 +632,8 @@ let error_recursively_dependent_library dir =
strbrk " to save current library because" ++
strbrk " it already depends on a library of this name.")
+(* Security weakness: file might have been changed on disk between
+ writing the content and computing the checksum... *)
let save_library_to dir f =
let cenv, seg = Declaremods.end_library dir in
let md = {