diff options
| author | Tony Cook <tony@develop-help.com> | 2011-09-19 15:23:44 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2011-09-19 15:23:44 +1000 |
| commit | ae92a15bbb8edf3be9d223f468e2b37426a886d8 (patch) | |
| tree | ed7db4e2cea94e0c83aa07b8bbd8a189c85ae992 | |
| parent | f76f2ef3c7d81e60b94f6106b3bd46f8449b469f (diff) | |
| download | perl-ae92a15bbb8edf3be9d223f468e2b37426a886d8.tar.gz | |
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.
| -rw-r--r-- | dist/IO/t/io_utf8argv.t | 2 |
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". |