make eq unicode-aware (from Gisle Aas); fix bogus tests revealed

[p5sagit/p5-mst-13.2.git] / lib / open.pm

diff --git a/lib/open.pm b/lib/open.pm
index 8f5c138..cdd20ac 100644 (file)
--- a/lib/open.pm
+++ b/lib/open.pm
@@ -37,7 +37,7 @@ The open pragma is used to declare one or more default disciplines for
 I/O operations.  Any open() and readpipe() (aka qx//) operators found
 within the lexical scope of this pragma will use the declared defaults.
 Neither open() with an explicit set of disciplines, nor sysopen() are
-not influenced by this pragma.
+influenced by this pragma.
 
 Only the two pseudo-disciplines ":raw" and ":crlf" are currently
 available.
@@ -56,12 +56,12 @@ When they are eventually supported, this pragma will serve as one of
 the interfaces to declare default disciplines for all I/O.
 
 In future, any default disciplines declared by this pragma will be
-available by the special discipline name ":def", and could be used
+available by the special discipline name ":DEFAULT", and could be used
 within handle constructors that allow disciplines to be specified.
 This would make it possible to stack new disciplines over the default
 ones.
 
-    open FH, "<:para :def", $file or die "can't open $file: $!";
+    open FH, "<:para :DEFAULT", $file or die "can't open $file: $!";
 
 Socket and directory handles will also support disciplines in
 future.