fix mode used to open /dev/tty in perlop example

(Thanks for reporting this, Tom Christiansen!)

diff --git a/pod/perlop.pod b/pod/perlop.pod
index 2152f13..7b2d0a3 100644 (file)
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -1768,7 +1768,7 @@ failure.
 
 Examples:
 
-    open(TTY, "+>/dev/tty")
+    open(TTY, "+</dev/tty")
        || die "can't access /dev/tty: $!";
 
     <TTY> =~ /^y/i && foo();   # do foo if desired