Add &CORE::split

diff --git a/gv.c b/gv.c
index 1a0351f..1b4b43e 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -470,7 +470,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
     case KEY_q    : case KEY_qq   : case KEY_qr     : case KEY_qw    :
     case KEY_qx   : case KEY_redo : case KEY_require: case KEY_return:
     case KEY_s    : case KEY_say  : case KEY_sort   :
-    case KEY_split: case KEY_state: case KEY_study  : case KEY_sub   :
+    case KEY_state: case KEY_study: case KEY_sub    :
     case KEY_tr   : case KEY_undef: case KEY_UNITCHECK: case KEY_unless:
     case KEY_until: case KEY_use  : case KEY_when     : case KEY_while :
     case KEY_x    : case KEY_xor  : case KEY_y        :
@@ -483,7 +483,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv,
     case KEY_pop:
     case KEY_push:
     case KEY_shift:
-    case KEY_splice:
+    case KEY_splice: case KEY_split:
     case KEY_stat:
     case KEY_system:
     case KEY_truncate: case KEY_unlink:

diff --git a/t/op/coreamp.t b/t/op/coreamp.t
index 173fcd5..63168a6 100644 (file)
--- a/t/op/coreamp.t
+++ b/t/op/coreamp.t
@@ -943,7 +943,7 @@ like $@, qr'^Undefined format "STDOUT" called',
     if (m?__END__?..${\0} and /^[-+](.*)/) {
       my $word = $1;
       next if
-       $word =~ /^(?:s(?:t(?:ate|udy)|(?:pli|or)t|ay|ub)?|d(?:ef
+       $word =~ /^(?:s(?:t(?:ate|udy)|ort|ay|ub)?|d(?:ef
                   ault|ump|o)|p(?:rintf?|ackag
                   e)|e(?:ls(?:if|e)|val|q)|g(?:[et]|iven|oto
                   |rep)|u(?:n(?:less|def|til)|se)|l(?:(?:as)?t|ocal|e)|re

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 34dba10..daac36b 100644 (file)
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -20,7 +20,7 @@ my %unsupported = map +($_=>1), qw (
   cmp default do dump else elsif eq eval for foreach
   format ge given goto grep gt if last le local lt m map my ne next
   no  or  our  package  print  printf  q  qq  qr  qw  qx  redo  require
-  return s say sort split state  study  sub  tr  undef  unless  until  use
+  return s say sort state study sub tr undef unless until use
   when while x xor y
 );
 my %args_for = (