revert smartmatch to 5.27.6 behaviour

[perl5.git] / t / op / coresubs.t

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 6946496..62210b5 100644 (file)
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -20,7 +20,7 @@ my %unsupported = map +($_=>1), qw (
   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 state sub tr unless until use
-  whereis whereso while x xor y
+  when while x xor y
 );
 my %args_for = (
   dbmopen  => '%1,$2,$3',