summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-02-11 00:40:04 +0000
committerNicholas Clark <nick@ccl4.org>2006-02-11 00:40:04 +0000
commitc2b4a044213bea86e9e2d063d8cade83f2b9aa8b (patch)
treea4e600299c6227cb1df1eec4fab82f142d5ad6f1 /pp.c
parentdb93dab821dd5e70ebd9645eaefcd1285e7edb58 (diff)
downloadperl-c2b4a044213bea86e9e2d063d8cade83f2b9aa8b.tar.gz
assert() that we can't reach two unreachable code paths
(in Perl_magic_get and Perl_pp_shift). p4raw-id: //depot/perl@27154
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index d5c2679f44..3aaad3b4bd 100644
--- a/pp.c
+++ b/pp.c
@@ -4166,8 +4166,7 @@ PP(pp_shift)
AV * const av = (AV*)POPs;
SV * const sv = PL_op->op_type == OP_SHIFT ? av_shift(av) : av_pop(av);
EXTEND(SP, 1);
- if (!sv)
- RETPUSHUNDEF;
+ assert (sv);
if (AvREAL(av))
(void)sv_2mortal(sv);
PUSHs(sv);