On Sun, Feb 20, 2022 at 11:54:08AM +0000, Gavin Smith wrote:
> I propose the following fix, which doesn't touch Perl's internal string
> representation directly:
> 
> diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
> index 29dbf3c8c3..7babba016c 100644
> --- a/tp/Texinfo/Common.pm
> +++ b/tp/Texinfo/Common.pm
> @@ -1507,6 +1507,8 @@ sub locate_include_file($$)
>    my $text = shift;
>    my $file;
>  
> +  utf8::encode($text);
> +
>    my $ignore_include_directories = 0;
>  
>    my ($volume, $directories, $filename) = File::Spec->splitpath($text);
> 
> This means that any non-ASCII characters in a filename in a Texinfo source
> file are sought in the filesystem as the corresponding UTF-8 sequences.

I made a similar change in commit e11835b62d.

Reply via email to