(Retracted by #9149.)

p4raw-id: //depot/perl@9143

diff --git a/op.c b/op.c
index 421dc9e..4f607c4 100644 (file)
--- 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