coresubs.t: Explicitly skip all unsupported keywords

Instead of skipping positive keywords (those that cannot be over-
ridden) because of their positivity, list them explicitly in the
skip list.

This will allow them to be removed one by one.

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 85084bb..c7efa2d 100644 (file)
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -15,8 +15,14 @@ BEGIN {
 use B::Deparse;
 my $bd = new B::Deparse '-p';
 
-my %unsupported = map +($_=>1), qw (CORE and cmp dump eq ge gt le
-                                    lt ne or x xor);
+my %unsupported = map +($_=>1), qw (
+ __DATA__ __END__ AUTOLOAD BEGIN UNITCHECK CORE DESTROY END INIT CHECK and
+  cmp default defined delete do dump else elsif eq eval exists for foreach
+  format ge given glob goto grep gt if last le local lt m map my  ne  next
+  no or our package pos print printf prototype q qq qr qw qx redo  require
+  return s say scalar sort split state study sub tr undef unless until use
+  when while x xor y
+);
 my %args_for = (
   dbmopen  => '%1,$2,$3',
   dbmclose => '%1',
@@ -29,7 +35,7 @@ open my $kh, $keywords_file
 while(<$kh>) {
   if (m?__END__?..${\0} and /^[+-]/) {
     chomp(my $word = $');
-    if($& eq '+' || $unsupported{$word}) {
+    if($unsupported{$word}) {
       $tests ++;
       ok !defined &{"CORE::$word"}, "no CORE::$word";
     }