fix coredumper in change#3498

p4raw-link: @3498 on //depot/cfgperl: 697943021785eb8447e25eb51a6f27fd78921863

p4raw-id: //depot/perl@3539

diff --git a/op.c b/op.c
index 8257d7d..947dfa3 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4993,7 +4993,7 @@ OP *
 Perl_ck_defined(pTHX_ OP *o)           /* 19990527 MJD */
 {
     dTHR;
-    if (ckWARN(WARN_DEPRECATED)) {
+    if (ckWARN(WARN_DEPRECATED) && (o->op_flags & OPf_KIDS)) {
       switch (cUNOPo->op_first->op_type) {
       case OP_RV2AV:
       case OP_PADAV: