From 9523711ff0a337292d3439782b8f6fe348e72a81 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 15 Aug 2020 06:48:16 -0700
Subject: [PATCH] fix RT #133166, encoding not set for -st

---
 lib/Perl/Tidy.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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 }
         }
     }
 
-- 
2.39.5