ok
Direktori : /usr/share/perl5/vendor_perl/ |
Current File : //usr/share/perl5/vendor_perl/tainted.pl |
# This subroutine returns true if its argument is tainted, false otherwise. sub tainted { local($@); eval { kill 0 * $_[0] }; $@ =~ /^Insecure/; } 1;