1
0
mirror of https://github.com/apache/httpd.git synced 2025-08-08 15:02:10 +03:00

remove last traces of the code cache

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1200513 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Brian McCallister
2011-11-10 20:02:07 +00:00
parent 1a71a61ba5
commit 5eb6753e25
3 changed files with 18 additions and 61 deletions

View File

@@ -282,18 +282,22 @@ static void munge_path(lua_State *L,
current = lua_tostring(L, -1);
parent_dir = ap_make_dirstr_parent(pool, file);
ap_log_perror(APLOG_MARK, APLOG_WARNING, 0, NULL, "parent_dir %s", parent_dir);
pattern = apr_pstrcat(pool, parent_dir, sub_pat, NULL);
ap_log_perror(APLOG_MARK, APLOG_WARNING, 0, NULL, "pattern %s", pattern);
luaL_gsub(L, current, rep_pat, pattern);
lua_setfield(L, -3, field);
lua_getfield(L, -2, field);
modified = lua_tostring(L, -1);
ap_log_perror(APLOG_MARK, APLOG_WARNING, 0, NULL, "modified %s", modified);
lua_pop(L, 2);
part = apr_pstrcat(pool, modified, ";", apr_array_pstrcat(pool, paths, ';'),
NULL);
ap_log_perror(APLOG_MARK, APLOG_WARNING, 0, NULL, "part %s", part);
lua_pushstring(L, part);
lua_setfield(L, -2, field);
lua_pop(L, 1); /* pop "package" off the stack */
@@ -438,8 +442,10 @@ AP_LUA_DECLARE(lua_State*)ap_lua_get_lua_state(apr_pool_t *lifecycle_pool,
spec->pool) != APR_SUCCESS)
return NULL;
apr_pool_userdata_set(reslist, "mod_lua",
vm_reslist_destroy, spec->pool);
apr_pool_userdata_set(reslist,
"mod_lua",
vm_reslist_destroy,
spec->pool);
}
apr_reslist_acquire(reslist, (void **)&L);
lua_pushlightuserdata(L, L);