in reply to Re: detect taint mode in Perl 5.6.1in thread detect taint mode in Perl 5.6.1
sub is_tainted { return ! eval { join('',@_), kill 0; 1; }; } [download]