Index: openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/acs-cache-init.tcl,v diff -u -r1.1.2.5 -r1.1.2.6 --- openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl 14 May 2023 23:08:52 -0000 1.1.2.5 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl 14 May 2023 23:14:45 -0000 1.1.2.6 @@ -1,12 +1,10 @@ -if {[info commands ::acs::misc_cache] eq ""} { - # - # The acs::misc_cache is a potential successor of the util_memoize_cache, - # but in a partitioned fashion to make it scalable. It should only be - # used for situation, where no wild-card flushes are required. - # - set cacheType [expr {[::acs::icanuse "ns_hash"] ? "HashKeyPartitionedCache" : "Cache"}] - ::acs::$cacheType create ::acs::misc_cache \ - -package_key acs-tcl \ - -parameter MiscCache \ - -default_size 100KB -} +# +# The acs::misc_cache is a potential successor of the util_memoize_cache, +# but in a partitioned fashion to make it scalable. It should only be +# used for situation, where not wild-card flushes are required. +# +set cacheType [expr {[::acs::icanuse "ns_hash"] ? "HashKeyPartitionedCache" : "Cache"}] +::acs::$cacheType create ::acs::misc_cache \ + -package_key acs-tcl \ + -parameter MiscCache \ + -default_size 100KB