diff options
Diffstat (limited to 'Build/source/texk/web2c/tests/write18-quote-test.pl')
-rwxr-xr-x | Build/source/texk/web2c/tests/write18-quote-test.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/tests/write18-quote-test.pl b/Build/source/texk/web2c/tests/write18-quote-test.pl index 74256516b73..d0daabdd054 100755 --- a/Build/source/texk/web2c/tests/write18-quote-test.pl +++ b/Build/source/texk/web2c/tests/write18-quote-test.pl @@ -1,11 +1,10 @@ #!/usr/bin/env perl # $Id$ -# Copyright 2010 Karl Berry <tex-live@tug.org>. -# You may freely use, modify and/or distribute this file. +# Public domain. Originally written 2010, Karl Berry. # Check that restricted shell invocation doesn't misquote. -BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `pwd`); } -require "$srcdir/tests/common-test.pl"; +BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `dirname $0`); } +require "$srcdir/../tests/common-test.pl"; exit (&main ()); @@ -14,7 +13,7 @@ sub main $badfile = "write18-quote-newfile.tex"; unlink ($badfile); # ensure no leftover from previous test - my @args = qw(-ini -shell-restricted $srcdir/tests/write18-quote.tex); + my @args = (qw(-ini -shell-restricted), "$srcdir/tests/write18-quote.tex"); my $ret = &test_run ("./tex", @args); my $bad = -f $badfile; # file should not have been created |