Testing binmode always on

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index ef9d53242336a8c7f9976ced72a9e9f370e77a05..bdb9e341ffe06712a9335e0d01c59694409259c5 100644 (file)
--- 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 );