Strip BOM before parsing package version

andk · Apr 25, 2024 · fc74707 · fc74707
1 parent 0daf9c3
commit fc74707
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/PAUSE/pmfile.pm b/lib/PAUSE/pmfile.pm
@@ -204,9 +204,12 @@ sub packages_per_pmfile {
     local $/ = "\n";
     my $inpod = 0;
 
+    my $checked_bom;
   PLINE: while (<$fh>) {
         chomp;
         my($pline) = $_;
+        $pline =~ s/\A(?:\x00\x00\xfe\xff|\xff\xfe\x00\x00|\xfe\xff|\xff\xfe|\xef\xbb\xbf)// unless $checked_bom;
+        $checked_bom = 1;
         $inpod = $pline =~ /^=(?!cut)/ ? 1 :
             $pline =~ /^=cut/ ? 0 : $inpod;
         next if $inpod;