flexdll/mingw32-flexdll-0.11-no-directory.patch

   1 Don't recognize directories as libraries.  eg. If we have system
   2 libvirt and OCaml bindings in $OCAML_LIB_DIR/libvirt, then we don't
   3 want '-lvirt' to "discover" the OCaml bindings directory.
   4
   5 diff -ur flexdll/reloc.ml flexdll.mingw/reloc.ml
   6 --- flexdll/reloc.ml    2008-11-16 18:41:01.000000000 +0000
   7 +++ flexdll.mingw/reloc.ml      2008-11-16 18:39:18.000000000 +0000
   8 @@ -109,7 +109,7 @@
   9    Filename.dirname (get_output1 (Printf.sprintf "i686-pc-mingw32-gcc %s-print-libgcc-file-name" extra))\r
  10  \r
  11  let file_exists fn =\r
  12 -  if Sys.file_exists fn then Some fn\r
  13 +  if Sys.file_exists fn && not (Sys.is_directory fn) then Some fn\r
  14    else if !use_cygpath && Sys.file_exists (fn ^ ".lnk") then\r
  15      Some (get_output1 (Printf.sprintf "cygpath -m %s" fn))\r
  16    else None\r