void Rivet_ReleasePerDirScripts()

in src/mod_rivet_ng/mod_rivet_common.c [201:215]

• 13 lines of code
• 2 McCabe index (conditional complexity)

void Rivet_ReleasePerDirScripts(rivet_thread_interp* rivet_interp)
{
    apr_hash_t*         ht = rivet_interp->per_dir_scripts;
    apr_hash_index_t*   hi;
    Tcl_Obj*            script;
    apr_pool_t*         p = rivet_interp->pool;

    for (hi = apr_hash_first(p,ht); hi; hi = apr_hash_next(hi))
    {
        apr_hash_this(hi, NULL, NULL, (void*)(&script));
        Tcl_DecrRefCount(script);
    }

    apr_hash_clear(ht);
}