From 67c48a2e2baab5fd5e3665e35c3e3a8caf6e29eb Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 21 Mar 2020 18:55:20 -0700
Subject: [PATCH] remove BOM if any

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

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index d9433dff..9cc42f56 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -992,6 +992,11 @@ EOM
         # we must not treat it as encoded data.
         my $is_encoded_data = $encoding_in ? 'utf8' : "";
 
+        # Delete any Byte Order Mark (BOM), which can cause trouble
+        if ($is_encoded_data) {
+	    $buf =~ s/^\x{FEFF}//;
+        }
+
         # MD5 sum of input file is evaluated before any prefilter
         if ( $rOpts->{'assert-tidy'} || $rOpts->{'assert-untidy'} ) {
             $digest_input = $md5_hex->($buf);
-- 
2.39.5