rev 228 - trunk/src

SVN User <[email protected]>
Newsgroups gmane.comp.lang.prothon.cvs
Message-ID <[email protected]>
Author: bcollins
Date: 2004-03-31 10:08:35 -0500 (Wed, 31 Mar 2004)
New Revision: 228

Modified:
   trunk/src/interp.c
Log:
Cleanup error reporting for dso failures.


Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c	2004-03-31 15:07:37 UTC (rev 227)
+++ trunk/src/interp.c	2004-03-31 15:08:35 UTC (rev 228)
@@ -326,16 +326,20 @@
 		     MODULE_EXTENSION);
 
 	aprerr = apr_dso_load(&handle, dll_path, get_pr_head_pool());
-	if (aprerr != APR_SUCCESS)
+	if (aprerr != APR_SUCCESS) {
+#ifdef DEBUG_MODULES
+		printf("Failed finding dll: %s\n", apr_dso_error(handle, dll_path, sizeof(dll_path)));
+#endif
 		return FALSE;
+	}
 
 	apr_snprintf(dll_path, sizeof(dll_path), "%s_dll_entry", module_name);
 	aprerr = apr_dso_sym(&dll_entry, handle, dll_path);
 	if (aprerr != APR_SUCCESS) {
 		apr_dso_unload(handle);
-		raise_exception(ist, OBJ(INTERNAL_EXC), "Loadable module `%s': initialization failed",
-				module_name);
-		printf("Failed finding dll entry symbol: %s\n", apr_dso_error(handle, dll_path, sizeof(dll_path)));
+		raise_exception(ist, OBJ(INTERNAL_EXC), "Loadable module `%s': %s",
+				module_name, apr_dso_error(handle, dll_path,
+				sizeof(dll_path)));
 		return FALSE;
 	}
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.