FFI: Workaround for platform dlerror() returning NULL.

Contributed by mcclure.

diff --git a/src/lj_clib.c b/src/lj_clib.c
index 8dc3c10e3bf18ac6add69dfa3bd4a09dac90c44c..dc72dcedb228884425e7801db74eaf8c7c19848f 100644 (file)
--- a/src/lj_clib.c
+++ b/src/lj_clib.c
@@ -118,12 +118,13 @@ static void *clib_loadlib(lua_State *L, const char *name, int global)
                   RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL));
   if (!h) {
     const char *e, *err = dlerror();
-    if (*err == '/' && (e = strchr(err, ':')) &&
+    if (err && *err == '/' && (e = strchr(err, ':')) &&
        (name = clib_resolve_lds(L, strdata(lj_str_new(L, err, e-err))))) {
       h = dlopen(name, RTLD_LAZY | (global?RTLD_GLOBAL:RTLD_LOCAL));
       if (h) return h;
       err = dlerror();
     }
+    if (!err) err = "dlopen failed";
     lj_err_callermsg(L, err);
   }
   return h;