X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=835dac63d3ff7a27e6d812bd1d2010557973a560;hb=2de7b02f486a4ffa238ed2bfc9a7e642ed40e737;hp=4224b0ea13bd95e37654d2c23db2a2cd641dad30;hpb=be573f631d93a503246e9a83f3e8e876f6c5fcfb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 4224b0e..835dac6 100644
--- a/doop.c
+++ b/doop.c
@@ -592,7 +592,8 @@ Perl_do_trans(pTHX_ SV *sv)
 	return 0;
     if (!SvPOKp(sv))
 	(void)SvPV_force(sv, len);
-    (void)SvPOK_only(sv);
+    if (!(PL_op->op_private & OPpTRANS_IDENTICAL))
+	(void)SvPOK_only_UTF8(sv);
 
     DEBUG_t( Perl_deb(aTHX_ "2.TBL\n"));