Create `defer` syntax and `OP_PUSHDEFER` opcode

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

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 30f0621..514114b 100644 (file)
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -15,8 +15,8 @@ BEGIN {
 use B;
 
 my %unsupported = map +($_=>1), qw (
- __DATA__ __END__ AUTOLOAD BEGIN UNITCHECK CORE DESTROY END INIT CHECK and
-  catch cmp default do dump else elsif eq eval for foreach
+ __DATA__ __END__ AUTOLOAD BEGIN UNITCHECK CORE DESTROY END INIT CHECK
+  and catch cmp default defer do dump else elsif eq eval for foreach
   format ge given goto grep gt if isa 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 try unless until use