diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-02-11 00:40:04 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-02-11 00:40:04 +0000 |
commit | c2b4a044213bea86e9e2d063d8cade83f2b9aa8b (patch) | |
tree | a4e600299c6227cb1df1eec4fab82f142d5ad6f1 /pp.c | |
parent | db93dab821dd5e70ebd9645eaefcd1285e7edb58 (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); |