diff options
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 26cbbe4..84a7e91 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3583,7 +3583,7 @@ TclNRSwitchObjCmd( size_t listc; blist = objv[0]; - if (TclListObjGetElementsM(interp, objv[0], &listc, &listv) != TCL_OK) { + if (TclListObjLengthM(interp, objv[0], &listc) != TCL_OK) { return TCL_ERROR; } @@ -3596,6 +3596,9 @@ TclNRSwitchObjCmd( "?-option ...? string {?pattern body ...? ?default body?}"); return TCL_ERROR; } + if (TclListObjGetElementsM(interp, objv[0], &listc, &listv) != TCL_OK) { + return TCL_ERROR; + } objc = listc; objv = listv; splitObjs = 1; |