X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/949cf4983af707fbd15e422845f4f3df20505f97..6247ead0fba38099d381dcb4317ef3b243f1296a:/op.c

diff --git a/op.c b/op.c
index 018ea43..236d4fe 100644
--- a/op.c
+++ b/op.c
@@ -3527,8 +3527,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 		U8 range_mark = UTF_TO_NATIVE(0xff);
 		sv_catpvn(transv, (char *)&range_mark, 1);
 	    }
-	    t = uvuni_to_utf8_flags(tmpbuf, 0x7fffffff,
-				    UNICODE_ALLOW_SUPER);
+	    t = uvuni_to_utf8(tmpbuf, 0x7fffffff);
 	    sv_catpvn(transv, (char*)tmpbuf, t - tmpbuf);
 	    t = (const U8*)SvPVX_const(transv);
 	    tlen = SvCUR(transv);