diff options
Diffstat (limited to 'tests/join/mk-script.pl')
| -rw-r--r-- | tests/join/mk-script.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl index eb022d324..adfba98d2 100644 --- a/tests/join/mk-script.pl +++ b/tests/join/mk-script.pl @@ -14,6 +14,8 @@ use POSIX qw (assert); BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; } use Test; +my $srcdir = '@srcdir@'; + sub validate { my %seen; @@ -114,7 +116,7 @@ sub spec_to_list ($$$) my $suffix = (@content_string > 1 ? $i : ''); my $maint_gen_file = "$test_name$type$suffix"; push (@maint_gen_file, $maint_gen_file); - open (F, ">$maint_gen_file") || die "$0: $maint_gen_file: $!\n"; + open (F, ">$srcdir/$maint_gen_file") || die "$0: $maint_gen_file: $!\n"; print F $file_contents; close (F) || die "$0: $maint_gen_file: $!\n"; ++$i; |