unshift(@mess, "# got '$got'\n",
"# expected /$expected/\n");
}
+ local $Level = 2;
_ok($pass, _where(), $name, @mess);
}
my $n = @_ ? shift : 1;
for (1..$n) {
- print STDOUT "ok $test # TODO & SKIP: $why\n";
+ print STDOUT "not ok $test # TODO & SKIP: $why\n";
$test++;
}
local $^W = 0;
die "test.pl:runperl() does not take a hashref"
if ref $_[0] and ref $_[0] eq 'HASH';
my $runperl = &_create_runperl;
+ if (${^TAINT}) {
+ # We will assume that if you're running under -T, you really mean
+ # to run a fresh perl, so we'll brute force launder everything for
+ # you
+ foreach ($runperl, $ENV{PATH}) {
+ $_ =~ /(.*)/s;
+ $_ = $1;
+ }
+ }
my $result = `$runperl`;
$result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
return $result;