[Pkg-ocaml-maint-commits] r2330 - trunk/projects/ocaml-deblib

[Stefano Zacchiroli]

Author: zack
Date: 2005-12-26 20:09:18 +0000 (Mon, 26 Dec 2005)
New Revision: 2330

Modified:
   trunk/projects/ocaml-deblib/deblib_Version.ml
Log:
bugfix hile printing debian native packages


Modified: trunk/projects/ocaml-deblib/deblib_Version.ml
===================================================================
--- trunk/projects/ocaml-deblib/deblib_Version.ml	2005-12-26 20:08:41 UTC (rev 2329)
+++ trunk/projects/ocaml-deblib/deblib_Version.ml	2005-12-26 20:09:18 UTC (rev 2330)
@@ -8,9 +8,10 @@
 }
 
 let to_string t =
+  let debian_string = if t.debian = "" then "" else "-" ^ t.debian in
   if t.epoch = Int64.zero
-  then sprintf "%s-%s" t.upstream t.debian
-  else sprintf "%Ld:%s-%s" t.epoch t.upstream t.debian
+  then sprintf "%s%s" t.upstream debian_string
+  else sprintf "%Ld:%s%s" t.epoch t.upstream debian_string
 
 exception Malformed of string