From f3b00462b2b1d6b54716e4417c8bdce7e098abc3 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 9 Jul 2001 19:09:58 +0000 Subject: [PATCH] Add INOUT to control both ways at the same time. p4raw-id: //depot/perl@11241 --- lib/open.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lib/open.pm b/lib/open.pm index c6978bb..8eff354 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 C which is implemented as XS code. -It is called by C to validate the layers: +There is a class method in C C which is +implemented as XS code. It is called by C to validate the +layers: PerlIO::Layer::->find("perlio") -The return value (if defined) is a Perl object, of class C which is -created by the C code in F. 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 which is created by the C code in F. As +yet there is nothing useful you can do with the object at the perl +level. =head1 SEE ALSO -- 2.7.4