From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 13 Jun 1999 04:04:40 +0000 (+0000)
Subject: fix coredumper in change#3498
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d728199f8fa72dc33b858d549365cfdf2cb2dca0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: