COMMON: SPLIT with empty input now gives zero length output #147

Author: chrisws

samples/distro-examples/tests/split-join.bas

@@ -60,3 +60,12 @@ if (9 != ubound(a)) then
   throw "Final empty entry was ignored"
 endif
 
+row = ""
+split row, ":", fields()
+if (len(fields) != 0) then throw "Empty input gave non-empty output"
+
+s="$$$1$2$3$4$5$$$6$7$"
+split s, "!@#$%^", a
+if (ubound(a) - lbound(a) != len(a) - 1) then throw "Dimension error"
+
+

src/common/blib.c

@@ -2249,10 +2249,11 @@ void cmd_wsplit() {
     elem_p = v_elem(var_p, count);
     if (*ps) {
       v_setstr(elem_p, ps);
-    } else {
+      count++;
+    } else if (count) {
       v_setstr(elem_p, "");
+      count++;
     }
-    count++;
 
     // final resize
     v_resize_array(var_p, count);