+ assert (waitVar);
+ if ((cp = Tcl_GetVar (p->interp, waitVar, 0)))
+ {
+ waitVarVal = malloc (strlen(cp)+1);
+ strcpy (waitVarVal, cp);
+ }
+ else
+ {
+ char msg[128];
+
+ sprintf (msg, "Variable %s doesn't exist", waitVar);
+ gw_log (GW_LOG_WARN, mod, "%s", msg);
+ Tcl_AppendResult (p->interp, msg, NULL);
+ return TCL_ERROR;
+ }
+ gw_log (GW_LOG_DEBUG, mod, "Waiting %s=%s", waitVar, waitVarVal);