From 973610d41860bc177dc37d3f62b9f2f38aad97cd Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Wed, 17 Mar 2021 00:08:08 -0400
Subject: Force-disable utf8/unicode support in all perl scripts

---
 newtitle.pl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'newtitle.pl')

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;
 
-- 
cgit v1.2.3