summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-05-22 13:27:23 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-05-22 13:27:23 -0400
commite92c6722ddd559060514097ac1790c9edc2ee996 (patch)
tree8790610477041853accd24125ac85be35503c0e5 /t
parentb23b7a8d6112aa7519a388ca49a7864d1e86df21 (diff)
stop using perl -T here
See bug #411786. Perl's random corruption of the taint flag is even effecting the untainting of source filenames now (which AFAICS, is a proper untaint and always worked before..), and that makes using ikiwiki in perl taint mode not work at all.
Diffstat (limited to 't')
-rwxr-xr-xt/basewiki_brokenlinks.t2
-rwxr-xr-xt/permalink.t2
-rwxr-xr-xt/syntax.t2
3 files changed, 3 insertions, 3 deletions
diff --git a/t/basewiki_brokenlinks.t b/t/basewiki_brokenlinks.t
index ac04f800f..479c71a93 100755
--- a/t/basewiki_brokenlinks.t
+++ b/t/basewiki_brokenlinks.t
@@ -8,7 +8,7 @@ ok(! system("make -s ikiwiki.out"));
ok(! system("make extra_install DESTDIR=`pwd`/t/tmp/install PREFIX=/usr >/dev/null"));
foreach my $plugin ("", "listdirectives") {
- ok(! system("LC_ALL=C perl -T -I. ./ikiwiki.out -rebuild -plugin brokenlinks ".
+ ok(! system("LC_ALL=C perl -I. ./ikiwiki.out -rebuild -plugin brokenlinks ".
# always enabled because pages link to it conditionally,
# which brokenlinks cannot handle properly
"-plugin smiley ".
diff --git a/t/permalink.t b/t/permalink.t
index 9b44cd72e..c326e8d27 100755
--- a/t/permalink.t
+++ b/t/permalink.t
@@ -5,7 +5,7 @@ use Test::More 'no_plan';
ok(! system("mkdir t/tmp"));
ok(! system("make -s ikiwiki.out"));
-ok(! system("LC_ALL=C perl -T -I. ./ikiwiki.out -plugin inline -url=http://example.com -cgiurl=http://example.com/ikiwiki.cgi -rss -atom -underlaydir=underlays/basewiki -templatedir=templates t/tinyblog t/tmp/out"));
+ok(! system("LC_ALL=C perl -I. ./ikiwiki.out -plugin inline -url=http://example.com -cgiurl=http://example.com/ikiwiki.cgi -rss -atom -underlaydir=underlays/basewiki -templatedir=templates t/tinyblog t/tmp/out"));
# This guid should never, ever change, for any reason whatsoever!
my $guid="http://example.com/post/";
ok(length `grep '<guid>$guid</guid>' t/tmp/out/index.rss`);
diff --git a/t/syntax.t b/t/syntax.t
index d09d17f7f..05d955f33 100755
--- a/t/syntax.t
+++ b/t/syntax.t
@@ -12,7 +12,7 @@ push @libs, 'IkiWiki/Plugin/skeleton.pm.example';
plan(tests => (@progs + @libs));
foreach my $file (@progs) {
- ok(system("perl -T -c $file >/dev/null 2>&1") eq 0, $file);
+ ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file);
}
foreach my $file (@libs) {
ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file);