This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
93512b4
)
What does an empty PERLIO= mean, anyway?
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 16 Apr 2003 13:23:37 +0000
(13:23 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 16 Apr 2003 13:23:37 +0000
(13:23 +0000)
p4raw-id: //depot/perl@19237
t/io/layers.t
patch
|
blob
|
blame
|
history
diff --git
a/t/io/layers.t
b/t/io/layers.t
index
55be7cf
..
6f161cd
100644
(file)
--- 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} !~ /^(stdio|perlio|mmap)$/) {
+ print "1..0 # PERLIO='$ENV{PERLIO}' unknown\n";
+ exit 0;
+ }
}
plan tests => 43;
@@
-36,7
+40,8
@@
SKIP: {
ok($j->($result->[$i]), "$id - $i is ok");
} else {
is($result->[$i], $j,
- sprintf("$id - $i is %s", defined $j ? $j : "undef"));
+ sprintf("$id - $i is %s",
+ defined $j ? $j : "undef"));
}
}
}