diff options
| author | B. Watson <yalhcru@gmail.com> | 2021-03-17 00:08:08 -0400 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2021-03-17 00:08:08 -0400 |
| commit | 973610d41860bc177dc37d3f62b9f2f38aad97cd (patch) | |
| tree | bb6cf0d8b079ef3277b680de8854823769c9f07c /newtitle.pl | |
| parent | 5274b152538af054517bdc2c11baa2af7b4ae545 (diff) | |
| download | taipan-973610d41860bc177dc37d3f62b9f2f38aad97cd.tar.gz | |
Force-disable utf8/unicode support in all perl scripts
Diffstat (limited to 'newtitle.pl')
| -rw-r--r-- | newtitle.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/newtitle.pl b/newtitle.pl index 623b411..36e8baf 100644 --- a/newtitle.pl +++ b/newtitle.pl @@ -26,6 +26,11 @@ for $y (0..183) { } } +# turn off utf-8 encoding for stdout. without doing this, the build +# break if someone's set PERL_UNICODE in the environment. plus, I +# strongly suspect utf-8 will be enabled by default in perl 7. +binmode STDOUT, ':raw'; + # just output the raw data, no xex header. print chr($_) for @bytes; |