commit 16f3b42c824a7a6610794607f48a815d9a93598a
Author: josch <j.schauer@email.de>
Date:   Wed Mar 25 10:53:25 2015 +0100

    encode Debian package name in cudf_extras

--- a/deb/debcudf.ml
+++ b/deb/debcudf.ml
@@ -302,7 +302,8 @@ let loadlp ?(enc=false) tables l =
 
 let preamble = 
   let l = [
-    (* number,type,architecture are mandatory properties -- no default *)
+    (* name,number,type,architecture are mandatory properties -- no default *)
+    ("name", (`String None));
     ("number",(`String None));
     ("type",(`String None));
     ("architecture",(`String None));
@@ -324,6 +325,7 @@ let preamble =
 
 let add_extra_default extras tables pkg =
   let check = function [] :: _ -> failwith (Printf.sprintf "Malformed dep (%s %s)" pkg.name pkg.version) |l -> l in
+  let name = ("name",`String pkg.name) in
   let number = ("number",`String pkg.version) in
   let architecture = ("architecture",`String pkg.architecture) in
   let priority = ("priority",`String pkg.priority) in
@@ -363,7 +365,7 @@ let add_extra_default extras tables pkg
     |(_,`String "") -> None
     |e -> Some e
   )
-  [priority; architecture; number;
+  [priority; name; architecture; number;
   source; sourcenumber; sourceversion; 
   recommends; replaces;
   essential;build_essential]@ l
