From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 14 Apr 2003 20:36:55 +0000 (+0000)
Subject: PERLIO=perlio requires extra steps.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e76300d6a3eeeae9f529c5a2d89e531c688df885;p=p5sagit%2Fp5-mst-13.2.git

PERLIO=perlio requires extra steps.

p4raw-id: //depot/perl@19209
---

diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm
index ad99a30..9d3822c 100644
--- a/lib/PerlIO.pm
+++ b/lib/PerlIO.pm
@@ -165,8 +165,9 @@ in Perl using the latter) come with the Perl distribution.
 
 Use C<:encoding(ENCODING)> either in open() or binmode() to install
 a layer that does transparently character set and encoding transformations,
-for example from Shift-JIS to Unicode.  Note that an C<:encoding> also
-enables C<:utf8>.  See L<PerlIO::encoding> for more information.
+for example from Shift-JIS to Unicode.  Note that under C<stdio>
+an C<:encoding> also enables C<:utf8>.  See L<PerlIO::encoding>
+for more information.
 
 =item :via
 
@@ -230,8 +231,9 @@ The following returns the B<names> of the PerlIO layers on a filehandle.
    my @layers = PerlIO::get_layers(FH);
 
 The layers are returned in the order an open() or binmode() call would
-use them.  Note that the stack begings (normally) from C<stdio>, the
-platform specific low-level I/O (like C<unix>) is not part of the stack.
+use them.  Note that the stack begins (normally) from C<stdio> or from
+C<perlio>.  Under C<stdio> the platform specific low-level I/O (like
+C<unix>) is not part of the stack, but under C<perlio> it is.
 
 By default the layers from the input side of the filehandle is
 returned, to get the output side use the optional C<output> argument:
diff --git a/t/io/layers.t b/t/io/layers.t
index 15359c1..6eb0656 100644
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -8,6 +8,10 @@ BEGIN {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
     }
+    if (exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio') {
+	print "1..0 # PERLIO non-stdio\n";
+	exit(0);
+    }
 }
 
 plan tests => 43;