diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-24 10:34:20 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-24 10:34:20 +0000 |
commit | b7c442934df5578585948a9249cd388c152963f7 (patch) | |
tree | b76610626d65e539a34cc3b52320d75ea4698b4a /pp_hot.c | |
parent | 410d09fe7bf183b91b57fda7558a8a97b5eb200a (diff) | |
download | perl-b7c442934df5578585948a9249cd388c152963f7.tar.gz |
Remove unnecessarily paranoid protection in pp_defined
p4raw-id: //depot/perl@31051
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -431,12 +431,13 @@ PP(pp_defined) --SP; RETURNOP(cLOGOP->op_other); } - } else if (op_type == OP_DEFINED) { + } + else { + /* OP_DEFINED */ sv = POPs; if (!sv || !SvANY(sv)) RETPUSHNO; - } else - DIE(aTHX_ "panic: Invalid op (%s) in pp_defined()", OP_NAME(PL_op)); + } defined = FALSE; switch (SvTYPE(sv)) { |