summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-12-05 22:38:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-12-05 22:38:20 (GMT)
commit6a27e83c7193e742481d954eddb39a02586b54bf (patch)
treec95119b47ecadf44fe489bd18f18e7611a37bb1b
parent80f5d8964ac592076e2adbb83d4402382d01914d (diff)
downloadtcl-6a27e83c7193e742481d954eddb39a02586b54bf.zip
tcl-6a27e83c7193e742481d954eddb39a02586b54bf.tar.gz
tcl-6a27e83c7193e742481d954eddb39a02586b54bf.tar.bz2
do some Tcl_EvalEx, for test-purposes, demonstrating a crashnovem_support
-rw-r--r--unix/dltest/pkgb.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c
index f6f7bbb..772b239 100644
--- a/unix/dltest/pkgb.c
+++ b/unix/dltest/pkgb.c
@@ -93,8 +93,7 @@ Pkgb_UnsafeObjCmd(
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
- Tcl_SetObjResult(interp, Tcl_NewStringObj("unsafe command invoked", -1));
- return TCL_OK;
+ return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
}
/*