diff options
author | Father Chrysostomos <sprout@cpan.org> | 2016-08-16 22:15:01 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2016-08-17 06:21:14 -0700 |
commit | 20e67ba160487a25d00c812a421df80232423b07 (patch) | |
tree | 34a74287a25c2959ca7f452b5c4b467b6168b453 /pp.c | |
parent | c61c589cfa68dccf52432ac2d8e084ba49a4da14 (diff) | |
download | perl-20e67ba160487a25d00c812a421df80232423b07.tar.gz |
Remove dead code in pp.c:pp_index
8df0e7a28b changed
/* One needs to be upgraded. */
if (little_utf8) {
to
/* One needs to be upgraded. */
if (little_utf8 && !IN_ENCODING) {
The ‘else’ branch of that ‘if’ has some code conditional on
little_utf8 being true, which could only happen before in the case of
PL_encoding being set, and which cannot happen any more.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 13 |
1 files changed, 3 insertions, 10 deletions
@@ -3544,18 +3544,11 @@ PP(pp_index) sv_usepvn(temp, pv, llen); little_p = SvPVX(little); } else { - temp = little_utf8 - ? newSVpvn(big_p, biglen) : newSVpvn(little_p, llen); + temp = newSVpvn(little_p, llen); sv_utf8_upgrade(temp); - if (little_utf8) { - big = temp; - big_utf8 = TRUE; - big_p = SvPV_const(big, biglen); - } else { - little = temp; - little_p = SvPV_const(little, llen); - } + little = temp; + little_p = SvPV_const(little, llen); } } if (SvGAMAGIC(big)) { |