Bug fix: [split] string with leading null

Signed-off-by: Steve Bennett <steveb@workware.net.au>

2 files changed, 8 insertions, 2 deletions

diff --git a/jim.c b/jim.c
index 7583ecd..8bf708b 100644
--- a/jim.c
+++ b/jim.c
@@ -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 */
diff --git a/tests/misc.test b/tests/misc.test
index bca04ee..e4b086a 100644
--- a/tests/misc.test
+++ b/tests/misc.test
@@ -333,4 +333,8 @@ test stringreverse-1.1 "Containing nulls" {
 	string reverse abc\0def
 } "fed\0cba"
 
+test split-1.1 "Split with leading null" {
+	split "\0abc\0def\0" \0
+} {{} abc def {}}
+
 testreport