This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix mode used to open /dev/tty in perlop example
[perl5.git] / pod / perlop.pod
index 2152f13..7b2d0a3 100644 (file)
@@ -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