Bug#662921: libxmlm-ocaml-dev: wrong output with custom functions

[ygrek <ygrek@autistici.org>]

Package: libxmlm-ocaml-dev
Version: 1.0.2-1+b1
Severity: normal
Tags: patch upstream

The bug is already fixed upstream, but no released since.
See http://erratique.ch/repos/xmlm/commit/?id=3f0df24020df9dd120bfd1b56e094a4b2c6a8ec8

Here is the code to reproduce the bug :

let output () =
  let x = Xmlm.make_output
(*     (`Channel stdout) *)
    (`Fun (fun i -> print_char (Char.chr i)))
  in
  Xmlm.output x (`Dtd None);
  Xmlm.output x (`El_start (("","test"),[]));
  Xmlm.output x `El_end

let () =
   output ();
   print_endline ""

Correct output:
<?xml version="1.0" encoding="UTF-8"?><test/>

Buggy output:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<tttt//

-- System Information:
Debian Release: 6.0.2
  APT prefers stable
  APT policy: (990, 'stable'), (500, 'unstable'), (500, 'testing'), (1, 'experimental')
Architecture: amd64 (x86_64)

Kernel: Linux 3.0.0-1-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages libxmlm-ocaml-dev depends on:
ii  ocaml-findlib          1.2.6+debian-1+b1 management tool for OCaml librarie
ii  ocaml-nox [ocaml-nox-3 3.11.2-2-cfi5     ML implementation with a class-bas

libxmlm-ocaml-dev recommends no packages.

libxmlm-ocaml-dev suggests no packages.

-- no debconf information