summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tests
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/tests')
-rwxr-xr-xBuild/source/texk/web2c/tests/fn-generate.perl3
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:$!";