summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tests/write18-quote-test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/tests/write18-quote-test.pl')
-rwxr-xr-xBuild/source/texk/web2c/tests/write18-quote-test.pl9
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