1*0Sstevel@tonic-gate# This subroutine returns true if its argument is tainted, false otherwise. 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gatesub tainted { 4*0Sstevel@tonic-gate local($@); 5*0Sstevel@tonic-gate eval { kill 0 * $_[0] }; 6*0Sstevel@tonic-gate $@ =~ /^Insecure/; 7*0Sstevel@tonic-gate} 8*0Sstevel@tonic-gate 9*0Sstevel@tonic-gate1; 10