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 ro...@apache.org on 2009/04/10 23:23:42 UTC

svn commit: r764063 - /tcl/websh/trunk/src/generic/mod_websh.c

Author: ronnie
Date: Fri Apr 10 21:23:42 2009
New Revision: 764063

URL: http://svn.apache.org/viewvc?rev=764063&view=rev
Log:
- better logging on error

Modified:
    tcl/websh/trunk/src/generic/mod_websh.c

Modified: tcl/websh/trunk/src/generic/mod_websh.c
URL: http://svn.apache.org/viewvc/tcl/websh/trunk/src/generic/mod_websh.c?rev=764063&r1=764062&r2=764063&view=diff
==============================================================================
--- tcl/websh/trunk/src/generic/mod_websh.c (original)
+++ tcl/websh/trunk/src/generic/mod_websh.c Fri Apr 10 21:23:42 2009
@@ -302,10 +302,10 @@
     if (Tcl_Eval(webInterp->interp, "web::ap::perReqInit") != TCL_OK) {
 #ifndef APACHE2
 	ap_log_printf(r->server,
-		      "mod_websh - cannot init per-request Websh code");
+		      "mod_websh - cannot init per-request Websh code: %s", Tcl_GetStringResult(webInterp->interp));
 #else /* APACHE2 */
 	ap_log_rerror(APLOG_MARK, APLOG_NOERRNO | APLOG_ERR, 0, r,
-		      "mod_websh - cannot init per-request Websh code");
+		      "mod_websh - cannot init per-request Websh code: %s", Tcl_GetStringResult(webInterp->interp));
 #endif /* APACHE2 */
 	return 0;
     }
@@ -330,10 +330,10 @@
 
     if (Tcl_Eval(webInterp->interp, "web::ap::perReqCleanup") != TCL_OK) {
 #ifndef APACHE2
-	ap_log_printf(r->server, "mod_websh - error while cleaning-up");
+	ap_log_printf(r->server, "mod_websh - error while cleaning-up: %s", Tcl_GetStringResult(webInterp->interp));
 #else /* APACHE2 */
 	ap_log_rerror(APLOG_MARK, APLOG_NOERRNO | APLOG_ERR, 0, r,
-		      "mod_websh - error while cleaning-up");
+		      "mod_websh - error while cleaning-up: %s", Tcl_GetStringResult(webInterp->interp));
 #endif /* APACHE2 */
 	return 0;
     }



---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org