ok
Direktori : /proc/thread-self/root/usr/share/perl5/vendor_perl/ |
Current File : //proc/thread-self/root/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;