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/([^<]+)/ ? $_ : NFD($_)} split(/\R\z/, $buf)); # Read control file require XML::LibXML::Simple;