X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2Fswitcht.t;h=f48124e70d8cd8f944040140bd29c1f4e8e4795b;hb=679d6c4eed9fff03ad56a76e8f8ed516c6e0deb2;hp=869605ff953d06c5c41b7644588aba882da1eb07;hpb=dc459aad73ffc3aaf43c03d9908415c433fd93ba;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/run/switcht.t b/t/run/switcht.t
index 869605f..f48124e 100644
--- a/t/run/switcht.t
+++ b/t/run/switcht.t
@@ -14,7 +14,7 @@ my $warning;
 local $SIG{__WARN__} = sub { $warning = join "\n", @_; };
 my $Tmsg = 'while running with -t switch';
 
-ok( ${^TAINT},      '${^TAINT} defined' );
+is( ${^TAINT}, -1, '${^TAINT} == -1' );
 
 my $out = `$Perl -le "print q(Hello)"`;
 is( $out, "Hello\n",                      '`` worked' );