[Pkg-ocaml-maint-commits] r6285 - /trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

[glondu-guest at users.alioth.debian.org]

Author: glondu-guest
Date: Sat Feb 28 10:01:32 2009
New Revision: 6285

URL: http://svn.debian.org/wsvn/?sc=1&rev=6285
Log:
A source package is bad if >=1 binary package is bad

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6285&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sat Feb 28 10:01:32 2009
@@ -164,7 +164,13 @@
     let runtime_versions = M.fold
       (fun k pkg accu -> match depends_on_ocaml pkg with
          | None -> accu
-         | Some version -> M.add k (pkg, version) accu)
+         | Some version ->
+             begin try
+               let (_, cur_version) = M.find k accu in
+               if cur_version <> ocaml_version then accu else M.add k (pkg, version) accu
+             with
+               | Not_found -> M.add k (pkg, version) accu
+             end)
       binaries M.empty in
     let compiled_sources = M.fold
       (fun k (pkg, version) accu ->