Call FETCH once for $tied_ref =~ y/a/b/

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index e31fae239e..231b3d86e0 100644
--- a/doop.c
+++ b/doop.c
@@ -642,7 +642,7 @@ Perl_do_trans(pTHX_ SV *sv)
 	return 0;
     if (!(PL_op->op_private & OPpTRANS_IDENTICAL)) {
 	if (!SvPOKp(sv))
-	    (void)SvPV_force(sv, len);
+	    (void)SvPV_force_nomg(sv, len);
 	(void)SvPOK_only_UTF8(sv);
     }