Improve debug error reporting in ltdl.

* libltdl/ltdl.c: Print the error message if loading fails.

diff --git a/libltdl/ltdl.c b/libltdl/ltdl.c
index fba276c247e6cae6028deefd4cda91048586e5cd..7f94696de5ef154199b05a14a35d9427cbeba96c 100644 (file)
--- a/libltdl/ltdl.c
+++ b/libltdl/ltdl.c
@@ -444,8 +444,15 @@ tryall_dlopen (lt_dlhandle *phandle, const char *filename,
        handle->module = (*loader_vtable->module_open) (loader_vtable->dlloader_data,
                                                        filename, advise);
 #ifdef LT_DEBUG_LOADERS
-       fprintf (stderr, "  Result: %s\n",
-                handle->module ? "Success" : "Failed");
+       if (!handle->module) {
+               char *error;
+               LT__GETERROR(error);
+               fprintf (stderr, "  Result: Failed\n"
+                               "  Error message << %s >>\n",
+                               error ? error : "(null)");
+       } else {
+               fprintf (stderr, "  Result: Success\n");
+       }
 #endif
 
        if (handle->module != 0)