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/07 19:56:40 UTC
cvs commit: tcl-websh/src/generic modwebsh_ap.c
davidw 02/03/07 10:56:40
Modified: src/generic modwebsh_ap.c
Log:
* generic/modwebsh_ap.c (Web_InterpClassCfg): Pass mtime to
createWebInterpClass after fetching it with Tcl_Stat.
Revision Changes Path
1.5 +4 -5 tcl-websh/src/generic/modwebsh_ap.c
Index: modwebsh_ap.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/modwebsh_ap.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- modwebsh_ap.c 27 Feb 2002 10:09:52 -0000 1.4
+++ modwebsh_ap.c 7 Mar 2002 18:56:40 -0000 1.5
@@ -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: modwebsh_ap.c,v 1.4 2002/02/27 10:09:52 davidw Exp $
+ * @(#) $Id: modwebsh_ap.c,v 1.5 2002/03/07 18:56:40 davidw Exp $
*
*/
@@ -296,12 +296,11 @@
}
if (webInterpClass == NULL) {
+ struct stat statPtr;
int isnew = 0;
- /* fixme: should get mtime for id, but this needs lock on
- mainInterp which would be an incremental lock ... - use
- Tcl_Stat. */
- webInterpClass = createWebInterpClass(conf, id, 0L);
+ Tcl_Stat(id, &statPtr);
+ webInterpClass = createWebInterpClass(conf, id, statPtr.st_mtime);
entry = Tcl_CreateHashEntry(conf->webshPool, id, &isnew);
Tcl_SetHashValue(entry, (ClientData) webInterpClass);
}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org