Change 11241 by jhi@alpha on 2001/07/09 19:09:58
Add INOUT to control both ways at the same time.
Affected files ...
... //depot/perl/lib/open.pm#13 edit
Differences ...
==== //depot/perl/lib/open.pm#13 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Mon Jul 9 13:15:05 2001
+++ perl/lib/open.pm Mon Jul 9 13:15:05 2001
@@ -84,6 +84,9 @@
elsif ($type eq 'OUT') {
$out = join(' ',@val);
}
+ elsif ($type eq 'INOUT') {
+ $in = $out = join(' ',@val);
+ }
else {
croak "Unknown discipline class '$type'";
}
@@ -101,6 +104,7 @@
=head1 SYNOPSIS
use open IN => ":crlf", OUT => ":raw";
+ use open INOUT => ":utf8";
=head1 DESCRIPTION
@@ -135,14 +139,16 @@
=head1 IMPLEMENTATION DETAILS
-There is a class method in C<PerlIO::Layer> C<find> which is implemented as XS code.
-It is called by C<import> to validate the layers:
+There is a class method in C<PerlIO::Layer> C<find> which is
+implemented as XS code. It is called by C<import> to validate the
+layers:
PerlIO::Layer::->find("perlio")
-The return value (if defined) is a Perl object, of class C<PerlIO::Layer> which is
-created by the C code in F<perlio.c>. As yet there is nothing useful you can do with
the
-object at the perl level.
+The return value (if defined) is a Perl object, of class
+C<PerlIO::Layer> which is created by the C code in F<perlio.c>. As
+yet there is nothing useful you can do with the object at the perl
+level.
=head1 SEE ALSO
End of Patch.
