generator: Small code rearrangement.

Move code which updates pod2text memo file into a separate function.

diff --git a/src/generator.ml b/src/generator.ml
index 08c28fc..cc97dd5 100755 (executable)
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -3822,6 +3822,10 @@ let pod2text_memo : ((int * string * string), string list) Hashtbl.t =
     v
   with
     _ -> Hashtbl.create 13
     v
   with
     _ -> Hashtbl.create 13

+let pod2text_memo_updated () =
+  let chan = open_out pod2text_memo_filename in
+  output_value chan pod2text_memo;
+  close_out chan

 
 (* Useful functions.
  * Note we don't want to use any external OCaml libraries which
 
 (* Useful functions.
  * Note we don't want to use any external OCaml libraries which


@@ -7972,9 +7976,7 @@ and pod2text ~width name longdesc =
          failwithf "pod2text: process signalled or stopped by signal %d" i
     );
     Hashtbl.add pod2text_memo key lines;
          failwithf "pod2text: process signalled or stopped by signal %d" i
     );
     Hashtbl.add pod2text_memo key lines;

-    let chan = open_out pod2text_memo_filename in
-    output_value chan pod2text_memo;
-    close_out chan;
+    pod2text_memo_updated ();

     lines
 
 (* Generate ruby bindings. *)
     lines
 
 (* Generate ruby bindings. *)