erk, strconcat needs NULL as last arg. make sure we pass module name with

Tue May 29 12:57:51 2001  Tim Janik  <timj@gtk.org>

        * gmodule.c (g_module_symbol): erk, strconcat needs NULL as last arg.
        make sure we pass module name with suffix into backend open.

diff --git a/gmodule/ChangeLog b/gmodule/ChangeLog
index 7c6d0ae697f58a5f18e8f278475e2afc772f7f13..cab25eacb3b565ce7604fa0645fe5d668948acf3 100644 (file)
--- a/gmodule/ChangeLog
+++ b/gmodule/ChangeLog
@@ -1,3 +1,8 @@
+Tue May 29 12:57:51 2001  Tim Janik  <timj@gtk.org>
+
+       * gmodule.c (g_module_symbol): erk, strconcat needs NULL as last arg.
+       make sure we pass module name with suffix into backend open.
+
 Mon May 28 20:19:25 2001  Tim Janik  <timj@gtk.org>
 
        * gmodule.c (g_module_open): as a last resort, if we can't access()

diff --git a/gmodule/gmodule.c b/gmodule/gmodule.c
index ba2d13c47af14307b47cddb2c1235306f0566225..7f7cf28a81492b4703959abea67d87a6c0695a6b 100644 (file)
--- a/gmodule/gmodule.c
+++ b/gmodule/gmodule.c
@@ -346,7 +346,7 @@ g_module_open (const gchar    *file_name,
   /* try completing by appending libtool suffix */
   if (!name)
     {
-      name = g_strconcat (file_name, ".la");
+      name = g_strconcat (file_name, ".la", NULL);
       if (!g_file_test (name, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_REGULAR))
        {
          g_free (name);
@@ -357,7 +357,16 @@ g_module_open (const gchar    *file_name,
    * it via library paths
    */
   if (!name)
-    name = g_strdup (file_name);
+    {
+      gchar *dot = strrchr (file_name, '.');
+      gchar *slash = strrchr (file_name, G_DIR_SEPARATOR);
+      
+      /* make sure the name has a suffix */
+      if (!dot || dot < slash)
+       name = g_strconcat (file_name, "." G_MODULE_SUFFIX, NULL);
+      else
+       name = g_strdup (file_name);
+    }
 
   /* ok, try loading the module */
   if (name)