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