[inseparable changes from patch from perl5.003_18 to perl5.003_19]
[perl.git] / pod / perlsec.pod
index 69de859..2324b8a 100644 (file)
@@ -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