in reply to Re: Checking to see if Taint mode is enabled
in thread Checking to see if Taint mode is enabled

sub is_tainted {
    return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
}

[download]
 Ingenious, but unnecessary. There's Scalar::Util::tainted.

Anno

In Section Seekers of Perl Wisdom