use :raw to avoid interference from PERL_UNICODE when creating test data

986a805c added dist/IO/t/io_utf8argv.t which creates a utf-8 test file
from raw bytes.  When PERL_UNICODE was set the bytes were encoded as
utf-8, so producing a double-encode file.

Create the file with :raw to avoid that.

1 files changed, 1 insertions, 1 deletions

diff --git a/dist/IO/t/io_utf8argv.t b/dist/IO/t/io_utf8argv.t
index c97c260181..a902eaf1e9 100644
--- a/dist/IO/t/io_utf8argv.t
+++ b/dist/IO/t/io_utf8argv.t
@@ -13,7 +13,7 @@ use utf8;
 
 plan(tests => 2);
 
-open my $fh, ">", 'io_utf8argv';
+open my $fh, ">:raw", 'io_utf8argv';
 print $fh
    "\xce\x9c\xe1\xbd\xb7\xce\xb1\x20\xcf\x80\xe1\xbd\xb1\xcf\x80\xce".
    "\xb9\xce\xb1\x2c\x20\xce\xbc\xe1\xbd\xb0\x20\xcf\x80\xce\xbf\xce".