summaryrefslogtreecommitdiff
path: root/lib/open.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-06-16 13:38:45 +0000
committerNicholas Clark <nick@ccl4.org>2008-06-16 13:38:45 +0000
commitd4a42255d2d5d83aa57a5cea43992c42d3db4927 (patch)
treee73a36a7c2273fdfe28991ce9dcb855f4cc2304b /lib/open.t
parent2605937c604c47b61b8be58089fd235d341e6f50 (diff)
downloadperl-d4a42255d2d5d83aa57a5cea43992c42d3db4927.tar.gz
Make lib/open.t under -Duseperlio
p4raw-id: //depot/perl@34060
Diffstat (limited to 'lib/open.t')
-rw-r--r--lib/open.t6
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/open.t b/lib/open.t
index 1c4a99e202..4ce7371a16 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -180,14 +180,12 @@ EOE
"checking syswrite() output on :utf8 streams by reading it back in");
}
}
+SKIP: {
+ skip("no perlio", 2) unless (find PerlIO::Layer 'perlio');
-{
eval q[use Encode::Alias;use open ":std", ":locale"];
is($@, '', 'can use :std and :locale');
-}
-SKIP: {
- skip("no perlio", 1) unless (find PerlIO::Layer 'perlio');
use open IN => ':non-existent';
eval {
require Symbol; # Anything that exists but we havn't loaded