diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/pods/perlsec.pod')
-rw-r--r-- | Master/tlpkg/tlperl/lib/pods/perlsec.pod | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/pods/perlsec.pod b/Master/tlpkg/tlperl/lib/pods/perlsec.pod index 1c49453d535..d8470eccccb 100644 --- a/Master/tlpkg/tlperl/lib/pods/perlsec.pod +++ b/Master/tlpkg/tlperl/lib/pods/perlsec.pod @@ -170,6 +170,7 @@ nearby CPAN mirror, and included in Perl starting from the release 5.8.0. Or you may be able to use the following C<is_tainted()> function. sub is_tainted { + local $@; # Don't pollute caller's value. return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 }; } |