This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Remove unnecessary flag
authorKarl Williamson <public@khwilliamson.com>
Sun, 9 Jan 2011 22:28:29 +0000 (15:28 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 10 Jan 2011 02:29:02 +0000 (19:29 -0700)
This flag no longer does anything

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);