diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-05 22:38:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-05 22:38:20 (GMT) |
| commit | 38ee3de94f96efac431267ed5fc4ab5a9a6fd931 (patch) | |
| tree | c95119b47ecadf44fe489bd18f18e7611a37bb1b | |
| parent | c9c4a3ad02bed62c7fab0ceff2fa23cafde0b8aa (diff) | |
| download | tcl-38ee3de94f96efac431267ed5fc4ab5a9a6fd931.zip tcl-38ee3de94f96efac431267ed5fc4ab5a9a6fd931.tar.gz tcl-38ee3de94f96efac431267ed5fc4ab5a9a6fd931.tar.bz2 | |
do some Tcl_EvalEx, for test-purposes, demonstrating a crash
| -rw-r--r-- | unix/dltest/pkgb.c | 3 |
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); } /* |