pre{inc,dec} is faster, even with integers

[p5sagit/p5-mst-13.2.git] / t / run / switcht.t

diff --git a/t/run/switcht.t b/t/run/switcht.t
index 869605f..f48124e 100644 (file)
--- 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' );