Bug#878896: Patch

[Andreas Stührk <andy@hammerhartes.de>]

tags 878896 + patch fixed-upstream

thanks

This issue is already fixed upstream. Attached is a patch that fixes the FTBFS (it's basically upstream commit bf0640779b2e7095e01755d3660c7e3f0865171d).

Index: liquidsoap-1.1.1/src/decoder/decoder.ml
===================================================================
--- liquidsoap-1.1.1.orig/src/decoder/decoder.ml
+++ liquidsoap-1.1.1/src/decoder/decoder.ml
@@ -277,7 +277,7 @@ let get_image_file_decoder filename =
   with
   | Pervasives.Exit -> !ans
 
-exception Exit of stream_decoder
+exception Exit_decoder of stream_decoder
 
 let get_stream_decoder mime kind =
   try
@@ -287,13 +287,13 @@ let get_stream_decoder mime kind =
          match try decoder mime kind with _ -> None with
            | Some f ->
                log#f 3 "Method %S accepted %S." name mime ;
-               raise (Exit f)
+               raise (Exit_decoder f)
            | None -> ()) (get_decoders conf_stream_decoders
                                        stream_decoders);
     log#f 3 "Unable to decode stream of type %S!" mime ;
     None
   with
-    | Exit f -> Some f
+    | Exit_decoder f -> Some f
 
 (** {1 Helpers for defining decoders} *)