summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-03-14 03:37:53 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-03-14 03:37:53 +0000
commitc6a6ba88b188e56556e838218408788ec13954d4 (patch)
treec42564b80e3aaed4d95c8560270c48c4c289f013 /op.c
parent3b2447bced8c335535d7a233343e70749bff7b24 (diff)
downloadperl-c6a6ba88b188e56556e838218408788ec13954d4.tar.gz
(Retracted by #9149.)
p4raw-id: //depot/perl@9143
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 421dc9e69d..4f607c49bb 100644
--- a/op.c
+++ b/op.c
@@ -2872,7 +2872,7 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
}
}
}
- if (!del) {
+ if (!del && (rlen > 0xff || tlen > 0xff)) {
if (j >= rlen)
j = rlen - 1;
else