When dup'ing a filehandle, retain the :utf8 layer

p4raw-id: //depot/perl@30781

1 files changed, 21 insertions, 1 deletions

diff --git a/t/io/dup.t b/t/io/dup.t
index 48497fd232..0287023301 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -10,7 +10,7 @@ use Config;
 no warnings 'once';
 
 my $test = 1;
-print "1..26\n";
+print "1..29\n";
 print "ok 1\n";
 
 open(DUPOUT,">&STDOUT");
@@ -133,5 +133,25 @@ SKIP: {
     }
     close G;
 
+    use utf8;
+    open UTFOUT, '>:utf8', "dup$$" or die $!;
+    open UTFDUP, '>&UTFOUT' or die $!;
+    my $message = "ça marche pas\n";
+    print UTFOUT $message;
+    print UTFDUP $message;
+    binmode UTFDUP, ':utf8';
+    print UTFDUP $message;
+    close UTFOUT;
+    close UTFDUP;
+    open(UTFIN, "<:utf8", "dup$$") or die $!;
+    {
+	my $line;
+	$line = <UTFIN>; is($line, $message);
+	$line = <UTFIN>; is($line, $message);
+	$line = <UTFIN>; is($line, $message);
+    }
+    close UTFIN;
+    no utf8;
+
     END { 1 while unlink "dup$$" }
 }