diff options
Diffstat (limited to 'lib/open.t')
| -rw-r--r-- | lib/open.t | 6 |
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 |