# HG changeset patch
# User Ben Abbott  <bpabbott@mac.com>
# Date 1364950120 14400
# Node ID 61989cde13aed9d3c644cbba3e2919400f9dd4dc
# Parent  5be43435bd5b919b44d14c6a3781be5c3be7e2c2
Use legacy implementation for strsplit().

* scripts/pkg/private/list_forge_packages.m: Specify delimitertype = "legacy"
* scripts/io/strread.m: ditto

diff -r 5be43435bd5b -r 61989cde13ae scripts/io/strread.m
--- a/scripts/io/strread.m	Tue Apr 02 19:36:52 2013 -0400
+++ b/scripts/io/strread.m	Tue Apr 02 20:48:40 2013 -0400
@@ -772,7 +772,7 @@
   endif
 
   ## Split text string along delimiters
-  out = strsplit (text, num2cell (sep(:)), mult_dlms_s1);
+  out = strsplit (text, sep, mult_dlms_s1, "delimitertype", "legacy");
   if (index (sep, eol_char)); out = strrep (out, char (255), ''); endif
   ## In case of trailing delimiter, strip stray last empty word
   if (!isempty (out) && any (sep == text(end)))
diff -r 5be43435bd5b -r 61989cde13ae scripts/pkg/private/list_forge_packages.m
--- a/scripts/pkg/private/list_forge_packages.m	Tue Apr 02 19:36:52 2013 -0400
+++ b/scripts/pkg/private/list_forge_packages.m	Tue Apr 02 20:48:40 2013 -0400
@@ -25,7 +25,7 @@
 function list = list_forge_packages ()
   [list, succ] = urlread ("http://packages.octave.org/list_packages.php");
   if (succ)
-    list = strsplit (list, " \n\t", true);
+    list = strsplit (list, " \n\t", true, "delimitertype", "legacy");
   else
     error ("pkg: could not read URL, please verify internet connection");
   endif