From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 15 Aug 2020 13:48:16 +0000 (-0700)
Subject: fix RT #133166, encoding not set for -st
X-Git-Tag: 20200822~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9523711ff0a337292d3439782b8f6fe348e72a81;p=perltidy.git

fix RT #133166, encoding not set for -st
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 83c0c153..d4c6b254 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -225,16 +225,15 @@ EOM
                 ## $fh->binmode(":raw:encoding(UTF-8)");  
                 binmode $fh, ":raw:encoding(UTF-8)";
             }
-            elsif ( $fh eq '-' ) {
+            elsif ( $filename eq '-' ) {
                 binmode STDOUT, ":raw:encoding(UTF-8)";
             }
         }
 
         # Case 2: handle unencoded data
         else {
-            ##if    ( ref($fh) eq 'IO::File' ) { $fh->binmode(); }
             if    ( ref($fh) eq 'IO::File' ) { binmode $fh }
-            elsif ( $fh eq '-' )             { binmode STDOUT }
+            elsif ( $filename eq '-' )       { binmode STDOUT }
         }
     }