Mention implicit $_ in y///r uninit warning

This brings it into conformity with y without the /r.

1 files changed, 4 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 99f08b9205..7011ecfc95 100644
--- a/pp.c
+++ b/pp.c
@@ -753,9 +753,11 @@ PP(pp_trans)
     }
     TARG = sv_newmortal();
     if(PL_op->op_type == OP_TRANSR) {
-	SV * const newsv = newSVsv(sv);
+	STRLEN len;
+	const char * const pv = SvPV(sv,len);
+	SV * const newsv = newSVpvn_flags(pv, len, SVs_TEMP|SvUTF8(sv));
 	do_trans(newsv);
-	mPUSHs(newsv);
+	PUSHs(newsv);
     }
     else PUSHi(do_trans(sv));
     RETURN;