Change 34060 by [EMAIL PROTECTED] on 2008/06/16 13:38:45
Make lib/open.t under -Duseperlio
Affected files ...
... //depot/perl/lib/open.t#29 edit
Differences ...
==== //depot/perl/lib/open.t#29 (text) ====
Index: perl/lib/open.t
--- perl/lib/open.t#28~33486~ 2008-03-12 01:50:11.000000000 -0700
+++ perl/lib/open.t 2008-06-16 06:38:45.000000000 -0700
@@ -180,14 +180,12 @@
"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
End of Patch.
