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.
master
Joey Hess 2009-05-22 13:27:23 -04:00
parent b23b7a8d61
commit e92c6722dd
3 changed files with 3 additions and 3 deletions

View File

@ -8,7 +8,7 @@ ok(! system("make -s ikiwiki.out"));
ok(! system("make extra_install DESTDIR=`pwd`/t/tmp/install PREFIX=/usr >/dev/null")); ok(! system("make extra_install DESTDIR=`pwd`/t/tmp/install PREFIX=/usr >/dev/null"));
foreach my $plugin ("", "listdirectives") { 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, # always enabled because pages link to it conditionally,
# which brokenlinks cannot handle properly # which brokenlinks cannot handle properly
"-plugin smiley ". "-plugin smiley ".

View File

@ -5,7 +5,7 @@ use Test::More 'no_plan';
ok(! system("mkdir t/tmp")); ok(! system("mkdir t/tmp"));
ok(! system("make -s ikiwiki.out")); 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! # This guid should never, ever change, for any reason whatsoever!
my $guid="http://example.com/post/"; my $guid="http://example.com/post/";
ok(length `grep '<guid>$guid</guid>' t/tmp/out/index.rss`); ok(length `grep '<guid>$guid</guid>' t/tmp/out/index.rss`);

View File

@ -12,7 +12,7 @@ push @libs, 'IkiWiki/Plugin/skeleton.pm.example';
plan(tests => (@progs + @libs)); plan(tests => (@progs + @libs));
foreach my $file (@progs) { 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) { foreach my $file (@libs) {
ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file); ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file);