diff options
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; |