summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2016-08-16 22:15:01 -0700
committerFather Chrysostomos <sprout@cpan.org>2016-08-17 06:21:14 -0700
commit20e67ba160487a25d00c812a421df80232423b07 (patch)
tree34a74287a25c2959ca7f452b5c4b467b6168b453 /pp.c
parentc61c589cfa68dccf52432ac2d8e084ba49a4da14 (diff)
downloadperl-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.c13
1 files changed, 3 insertions, 10 deletions
diff --git a/pp.c b/pp.c
index 336122a0ff..124bf63167 100644
--- a/pp.c
+++ b/pp.c
@@ -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)) {