Fix for filenames in .bcf (#474)

plk · Oct 4, 2024 · 0c5ac67 · 0c5ac67
1 parent 3a4a8a2
commit 0c5ac67
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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;