From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 14 Mar 2001 03:37:53 +0000 (+0000)
Subject: (Retracted by #9149.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6a6ba88b188e56556e838218408788ec13954d4;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #9149.)

p4raw-id: //depot/perl@9143
---

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