From 0c5ac678364524414e2d89a30be896fce8e7e18e Mon Sep 17 00:00:00 2001
From: plk <Philip@kime.org.uk>
Date: Fri, 4 Oct 2024 21:26:39 +0200
Subject: [PATCH] Fix for filenames in .bcf (#474)

---
 lib/Biber.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Biber.pm b/lib/Biber.pm
index eb5b985d1..9fff72528 100644
--- a/lib/Biber.pm
+++ b/lib/Biber.pm
@@ -419,7 +419,8 @@ sub parse_ctrlfile {
  LOADCF:
   $logger->info("Reading '$ctrl_file_path'");
   my $buf = slurp_switchr($ctrl_file_path)->$*;
-  $buf = NFD($buf);# Unicode NFD boundary
+  # Unicode NFD boundary, but not for filenames - leave these in OS form
+  $buf = join("\n", map {m/<bcf:datasource.+>([^<]+)/ ? $_ : NFD($_)} split(/\R\z/, $buf));
 
   # Read control file
   require XML::LibXML::Simple;