From fa96f9e1dd9f5bca18c32e4c49d48059f0f43e98 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 22 Jan 2020 08:19:38 -0800
Subject: [PATCH] Testing binmode always on

---
 lib/Perl/Tidy.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index ef9d5324..bdb9e341 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1042,6 +1042,7 @@ EOM
         # through the -ple or -ole flags
         my $binmode = defined($line_separator)
           || defined($rOpts_character_encoding);
+        $binmode = 1;  ## TESTING
         $line_separator = "\n" unless defined($line_separator);
 
         my ( $sink_object, $postfilter_buffer );
-- 
2.39.5