summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/pods/perlsec.pod
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/pods/perlsec.pod')
-rw-r--r--Master/tlpkg/tlperl/lib/pods/perlsec.pod1
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 };
}