Merge pull request #31 from phmarek/master

Fix Perl compatibility for (SPLIT ... :LIMIT -1).

2 files changed, 8 insertions, 0 deletions

diff --git a/api.lisp b/api.lisp
index 1580fee..4c11c45 100644
--- a/api.lisp
+++ b/api.lisp
@@ -594,6 +594,11 @@ structure with TARGET-STRING."
         ;; push start of match on list unless this would be an empty
         ;; string adjacent to the last element pushed onto the list
         (when (and limit
+                   ;; perlfunc(1) says
+                   ;;   If LIMIT is negative, it is treated as if
+                   ;;   it were instead arbitrarily large;
+                   ;;   as many fields as possible are produced.
+                   (plusp limit)
                    (>= (incf counter) limit))
           (return))
         (push match-start pos-list)
diff --git a/test/simple b/test/simple
index 632301c..2aa1446 100644
--- a/test/simple
+++ b/test/simple
@@ -142,6 +142,9 @@ frob")
 (equal (split ":" "a:b:c:d:e:f:g::" :limit 1000)
        '("a" "b" "c" "d" "e" "f" "g" "" ""))
 
+(equal (split ":" "a:b:c:d:e:f:g::" :limit -1)
+       '("a" "b" "c" "d" "e" "f" "g" "" ""))
+
 (equal (multiple-value-list (regex-replace "fo+" "foo bar" "frob"))
        (list "frob bar" t))