From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 22 Jun 2020 12:59:02 +0000 (-0700)
Subject: remove binmode object call; not available in older perl versions
X-Git-Tag: 20200619.02~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2e9d0b7d71265ec92bfc91b5d90894cd321a11bb;p=perltidy.git

remove binmode object call; not available in older perl versions
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index f71de433..51a04b46 100644
--- 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 }
         }
     }