diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-09 19:09:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-09 19:09:58 +0000 |
| commit | f3b00462b2b1d6b54716e4417c8bdce7e098abc3 (patch) | |
| tree | 92bdb05d6e58d04c915dc625beb490e68b9b55d0 | |
| parent | 11fc5dc3ddedf5268b87d32af351473f9e08d806 (diff) | |
| download | perl-f3b00462b2b1d6b54716e4417c8bdce7e098abc3.tar.gz | |
Add INOUT to control both ways at the same time.
p4raw-id: //depot/perl@11241
| -rw-r--r-- | lib/open.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lib/open.pm b/lib/open.pm index c6978bb5f9..8eff354f37 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -84,6 +84,9 @@ sub import { 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 @@ open - perl pragma to set default disciplines for input and output =head1 SYNOPSIS use open IN => ":crlf", OUT => ":raw"; + use open INOUT => ":utf8"; =head1 DESCRIPTION @@ -135,14 +139,16 @@ everywhere if PerlIO is enabled. =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 |