=pod
Try tainting when not under B<-T>.
=cut
use strict;
use Test::More tests => 2;
use Taint::Util;
my $s = 420;
ok !tainted($s) => "fresh scalar untainted";
# taint
taint($s); ok !tainted($s) => "did not taint scalar when not under taint mode";