Release coccinelle-0.2.4rc5

[bpt/coccinelle.git] / tools / splitpatch.ml

diff --git a/tools/splitpatch.ml b/tools/splitpatch.ml
index 34b711b..4621f1d 100644 (file)
--- a/tools/splitpatch.ml
+++ b/tools/splitpatch.ml
@@ -177,7 +177,10 @@ let get_template_information file =
       if message = []
       then (subject,None,cover)
       else (subject,Some cover,message)
-  | _ -> failwith "Subject must be exactly one line"
+  | _ ->
+      failwith
+       ("Subject must be exactly one line "^
+        (string_of_int (List.length subject)))
 
 (* ------------------------------------------------------------------------ *)
 (* ------------------------------------------------------------------------ *)