diff options
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index dbb8c38ab..68e287f69 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -84,6 +84,7 @@ let is_unsafe s = Stringset.mem s !unsafe_set (* Dump of globalization (to be used by coqdoc) *) +let noglob = ref false let dump = ref false let dump_file = ref "" let dump_into_file f = dump := true; dump_file := f @@ -94,9 +95,10 @@ let dump_string = Buffer.add_string dump_buffer let dump_it () = if !dump then begin - let mode = [Open_wronly; Open_append; Open_creat] in + let mode = [Open_wronly; Open_creat] in let c = open_out_gen mode 0o666 !dump_file in output_string c (Buffer.contents dump_buffer); + Buffer.clear dump_buffer; close_out c end |