diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-11-15 07:07:29 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-11-17 07:57:40 +1000 |
commit | 07f782492c1bffa922115ebb92dfdb59662a6b4b (patch) | |
tree | 0c020eff1591f7486664a29d527ab77a81d9f69a /jim.c | |
parent | 0c8cc0722c0a5eb13ea39aa6ef5c7a80ff16a1bd (diff) | |
download | jimtcl-07f782492c1bffa922115ebb92dfdb59662a6b4b.zip jimtcl-07f782492c1bffa922115ebb92dfdb59662a6b4b.tar.gz jimtcl-07f782492c1bffa922115ebb92dfdb59662a6b4b.tar.bz2 |
Bug fix: [split] string with leading null
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r-- | jim.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -12915,15 +12915,17 @@ static int Jim_SplitCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *ar int splitLen, strLen; Jim_Obj *resObjPtr; int c; + int len; if (argc != 2 && argc != 3) { Jim_WrongNumArgs(interp, 1, argv, "string ?splitChars?"); return JIM_ERR; } - str = Jim_GetString(argv[1], NULL); - if (!*str) + str = Jim_GetString(argv[1], &len); + if (len == 0) { return JIM_OK; + } strLen = Jim_Utf8Length(interp, argv[1]); /* Init */ |