summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-24 10:34:20 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-24 10:34:20 +0000
commitb7c442934df5578585948a9249cd388c152963f7 (patch)
treeb76610626d65e539a34cc3b52320d75ea4698b4a /pp_hot.c
parent410d09fe7bf183b91b57fda7558a8a97b5eb200a (diff)
downloadperl-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.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/pp_hot.c b/pp_hot.c
index dfa19fd11a..034495d872 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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)) {