From 2e9d0b7d71265ec92bfc91b5d90894cd321a11bb Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 22 Jun 2020 05:59:02 -0700
Subject: [PATCH] remove binmode object call; not available in older perl
 versions

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

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