# New Ticket Created by "Chris Davaz"
# Please include the string: [perl #59642]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59642 >
Here is a small patch to make split return the empty list on
non-positive limit arguments instead of returning the string split
entirely. Moritz, I think it was you who suggested that negative
arguments be 'rejected by the signature' but I am not sure how to do
this in PIR.
Index: src/builtins/any-str.pir
===================================================================
--- src/builtins/any-str.pir (revision 31687)
+++ src/builtins/any-str.pir (working copy)
@@ -411,8 +411,7 @@
# per Perl 5's negative LIMIT behavior
unless has_count goto positive_count
- unless count < 1 goto positive_count
- has_count = 0
+ if count < 1 goto done
positive_count:
match = regex($S0)
