y///r

1 files changed, 6 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index de72d4e21c..1386f386ce 100644
--- a/pp.c
+++ b/pp.c
@@ -775,7 +775,12 @@ PP(pp_trans)
 	EXTEND(SP,1);
     }
     TARG = sv_newmortal();
-    PUSHi(do_trans(sv));
+    if(PL_op->op_type == OP_TRANSR) {
+	SV * const newsv = newSVsv(sv);
+	do_trans(newsv);
+	mPUSHs(newsv);
+    }
+    else PUSHi(do_trans(sv));
     RETURN;
 }