X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6b54a40376f816c07bf5262ecec28e130b304cb8..b89b0c6f71c5a46eb35a7e4a981d64eb1ed39c5d:/perlio.c?ds=sidebyside

diff --git a/perlio.c b/perlio.c
index ef07055..bbb12db 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2268,6 +2268,8 @@ PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags)
 	if (self->Getarg)
 	    arg = (*self->Getarg)(aTHX_ o, param, flags);
 	f = PerlIO_push(aTHX_ f, self, PerlIO_modestr(o,buf), arg);
+	if (PerlIOBase(o)->flags & PERLIO_F_UTF8)
+	    PerlIOBase(f)->flags |= PERLIO_F_UTF8;
 	if (arg)
 	    SvREFCNT_dec(arg);
     }