fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed cpdflin path lookup

This commit is contained in:
John Whitington 2014-10-09 15:39:57 +01:00
parent e2770ee225
commit 60b7b6debd
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdf.ml
View File

@ -23,10 +23,7 @@ let find_cpdflin provided =
match provided with match provided with
Some x -> Some x Some x -> Some x
| None -> | None ->
match Sys.argv.(0) with if Sys.file_exists "cpdflin" then Some "cpdflin" else
"cpdf" ->
if Sys.file_exists "cpdflin" then Some "cpdflin" else None
| s ->
match option_map (is_at_path "cpdflin") (paths ()) with match option_map (is_at_path "cpdflin") (paths ()) with
h::_ -> Some h h::_ -> Some h
| _ -> None | _ -> None