diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-11 22:03:55 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-29 09:36:26 -0700 |
| commit | a99f2ca207d1970b874b78612f61430b334035a7 (patch) | |
| tree | 538c1384763edfa45a37c12a36458a81dafba338 /t | |
| parent | d33bb3da8cf18cb9becf931b5f35d6f8a744df20 (diff) | |
| download | perl-a99f2ca207d1970b874b78612f61430b334035a7.tar.gz | |
Add &CORE::split
Diffstat (limited to 't')
| -rw-r--r-- | t/op/coreamp.t | 2 | ||||
| -rw-r--r-- | t/op/coresubs.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/op/coreamp.t b/t/op/coreamp.t index 173fcd56ab..63168a6e41 100644 --- 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 34dba10240..daac36b2ab 100644 --- 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 = ( |