Fixed cpdflin path lookup

2014-10-09 15:39:57 +01:00 · 2014-10-09 15:39:57 +01:00 · 60b7b6debd
parent e2770ee225
commit 60b7b6debd
1 changed files with 4 additions and 7 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -23,10 +23,7 @@ let find_cpdflin provided =
  match provided with
    Some x -> Some x
  | None ->
-      match Sys.argv.(0) with
-       "cpdf" ->
-          if Sys.file_exists "cpdflin" then Some "cpdflin" else None
-      | s ->
+      if Sys.file_exists "cpdflin" then Some "cpdflin" else
        match option_map (is_at_path "cpdflin") (paths ()) with
          h::_ -> Some h
        | _ -> None