Sign in
apache
/
tcl-websh
/
refs/tags/3.5.0
/
.
/
src
/
apachetests
/
pool.ws3
blob: c0e40c4d1bf219833de7814bcbbe2f88e987dd76 [
file
] [
log
] [
blame
]
# $Id$
# interp pool testing code.
web
::
initializer
{
web
::
command
default
{
if
{
[
info exists counter
]
}
{
incr counter
}
else
{
set
counter
1
}
web
::
put
"Counter is $counter"
}
}
web
::
dispatch