diff options
Diffstat (limited to 'Build/source/texk/web2c/tests')
-rwxr-xr-x | Build/source/texk/web2c/tests/fn-generate.perl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/tests/fn-generate.perl b/Build/source/texk/web2c/tests/fn-generate.perl index 7e1e3793664..26d27ac904c 100755 --- a/Build/source/texk/web2c/tests/fn-generate.perl +++ b/Build/source/texk/web2c/tests/fn-generate.perl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# Copyright 2022 Japanese TeX Development Community <issue@texjp.org> +# Copyright 2022-2023 Japanese TeX Development Community <issue@texjp.org> # You may freely use, modify and/or distribute this file. use strict; @@ -12,6 +12,7 @@ foreach $_ (<DATA>) { chomp; my ($encname, $fname0, $fname1) = split ' ', $_; + $fname0 = "$ARGV[0]/$fname0" if @ARGV; my $src = &make_str($encname, $fname0, $fname1); open(my $ofh, '>', $fname0) or die "Cannot open $fname0:$!"; |