Change 11914 by jhi@alpha on 2001/09/06 13:30:32
Update the is_tainted() example implementation.
Affected files ...
... //depot/perl/pod/perlsec.pod#20 edit
Differences ...
==== //depot/perl/pod/perlsec.pod#20 (text) ====
Index: perl/pod/perlsec.pod
--- perl/pod/perlsec.pod.~1~ Thu Sep 6 07:45:05 2001
+++ perl/pod/perlsec.pod Thu Sep 6 07:45:05 2001
@@ -125,10 +125,7 @@
Or you may be able to use the following I<is_tainted()> function.
sub is_tainted {
- return ! eval {
- join('',@_), kill 0;
- 1;
- };
+ return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
}
This function makes use of the fact that the presence of tainted data
End of Patch.
