tr/// logic was hosed under utf8

p4raw-id: //depot/perl@1781

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 9c08e2edca..a4f7828734 100644
--- a/pp.c
+++ b/pp.c
@@ -669,7 +669,7 @@ PP(pp_trans)
 	EXTEND(SP,1);
     }
     TARG = sv_newmortal();
-    PUSHi(do_trans(sv, PL_op));
+    PUSHi(do_trans(sv));
     RETURN;
 }