You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by da...@apache.org on 2002/03/05 16:31:28 UTC
cvs commit: tcl-websh/src/generic mod_websh.c
davidw 02/03/05 07:31:28
Modified: src/generic mod_websh.c
Log:
* generic/mod_websh.c (websh_init_child): Create Apache log entry if
initPool doesn't return an OK.
* generic/modwebsh_ap.c (Web_InterpClassCfg): Pass mtime to
createWebInterpClass after fetching it with Tcl_Stat.
Revision Changes Path
1.7 +6 -8 tcl-websh/src/generic/mod_websh.c
Index: mod_websh.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/mod_websh.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- mod_websh.c 27 Feb 2002 10:08:36 -0000 1.6
+++ mod_websh.c 5 Mar 2002 15:31:28 -0000 1.7
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: mod_websh.c,v 1.6 2002/02/27 10:08:36 davidw Exp $
+ * @(#) $Id: mod_websh.c,v 1.7 2002/03/05 15:31:28 davidw Exp $
* ------------------------------------------------------------------------- */
/* ====================================================================
@@ -200,13 +200,11 @@
websh_server_conf *conf =
(websh_server_conf *) ap_get_module_config(s->module_config,
&websh_module);
- if (!initPool(conf))
- /* fixme: what now!
- return "mod_websh: Could not init interpreter pool!";
- log, and, signal error
-
- */
- ;
+ if (!initPool(conf)) {
+ ap_log_error(APLOG_MARK, APLOG_ERR, r->server,
+ "Could not init interp pool\n");
+ return;
+ }
#ifdef APACHE2
apr_pool_cleanup_register(p, s, exit_websh_pool, exit_websh_pool);
#endif
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org