This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Remove unnecessary flag
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 018ea43..236d4fe 100644 (file)
--- 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);