fix RT #133166, encoding not set for -st

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 83c0c153d091f07b5bc9ce9f0b8a4ddf6e1a763b..d4c6b254353981e1cfd7257407c9ca0e92730ebd 100644 (file)
--- 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 }
         }
     }