Fix overloading via inherited autoloaded functions

[perl5.git] / pod / perlsec.pod

diff --git a/pod/perlsec.pod b/pod/perlsec.pod
index 69de859..2324b8a 100644 (file)
--- a/pod/perlsec.pod
+++ b/pod/perlsec.pod
@@ -44,6 +44,9 @@ For example:
     $arg = shift;              # $arg is tainted
     $hid = $arg, 'bar';                # $hid is also tainted
     $line = <>;                        # Tainted
+    $line = <STDIN>;           # Also tainted
+    open FOO, "/home/me/bar" or die $!;
+    $line = <FOO>;             # Still tainted
     $path = $ENV{'PATH'};      # Tainted, but see below
     $data = 'abc';             # Not tainted