This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Fixup Embed.t for Win32/VC++
[perl5.git] / lib / tainted.pl
1 # This subroutine returns true if its argument is tainted, false otherwise.
2
3 sub tainted {
4     local($@);
5     eval { kill 0 * $_[0] };
6     $@ =~ /^Insecure/;
7 }
8
9 1;
Unnamed repository; edit this file 'description' to name the repository.