remove binmode object call; not available in older perl versions

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index f71de4337b13996521fbbde3ba824094c6b3cc10..51a04b461158a82cc555987c7fa4ccfd55777a2a 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -221,7 +221,9 @@ EOM
         # Case 1: handle encoded data
         if ($is_encoded_data) {
             if ( ref($fh) eq 'IO::File' ) {
-                $fh->binmode(":raw:encoding(UTF-8)");
+                ## binmode object call not available in older perl versions 
+                ## $fh->binmode(":raw:encoding(UTF-8)");  
+                binmode $fh, ":raw:encoding(UTF-8)";
             }
             elsif ( $fh eq '-' ) {
                 binmode STDOUT, ":raw:encoding(UTF-8)";
@@ -230,7 +232,8 @@ EOM
 
         # Case 2: handle unencoded data
         else {
-            if    ( ref($fh) eq 'IO::File' ) { $fh->binmode(); }
+            ##if    ( ref($fh) eq 'IO::File' ) { $fh->binmode(); }
+            if    ( ref($fh) eq 'IO::File' ) { binmode $fh }
             elsif ( $fh eq '-' )             { binmode STDOUT }
         }
     }