Make dynamic linking smarter, so this stuff works before running 'make install'
[hcoop/domtool2.git] / pcre / mlton / libpcre-h.sml
index 356df39..3412cf6 100644 (file)
@@ -1,7 +1,10 @@
 structure LibpcreH = struct
     local
 structure LibpcreH = struct
     local
+       val global = "/usr/local/lib/pcre_sml.so"
+       val locl = "openssl/pcre_sml.so"
+
         val lh = DynLinkage.open_lib
         val lh = DynLinkage.open_lib
-             { name = "/usr/local/lib/pcre_sml.so", global = true, lazy = true }
+             { name = if Posix.FileSys.access (global, []) then global else locl, global = true, lazy = true }
            handle DynLinkage.DynLinkError s => raise Fail s
     in
         fun libh s = let
            handle DynLinkage.DynLinkError s => raise Fail s
     in
         fun libh s = let