From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 22 Jan 2020 16:19:38 +0000 (-0800)
Subject: Testing binmode always on
X-Git-Tag: 20200619~137
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fa96f9e1dd9f5bca18c32e4c49d48059f0f43e98;p=perltidy.git

Testing binmode always on
---

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 );