Remove all "configured without perlio" test SKIPs from ext/PerlIO-*

Also fix one skip that should have been for B, not PerlIO.

5 files changed, 3 insertions, 22 deletions

diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t
index 367b0cf4f2..77e7abce63 100644
--- a/ext/PerlIO-encoding/t/encoding.t
+++ b/ext/PerlIO-encoding/t/encoding.t
@@ -1,10 +1,6 @@
 #!./perl -w
 
 BEGIN {
-    unless (find PerlIO::Layer 'perlio') {
-	print "1..0 # Skip: not perlio\n";
-	exit 0;
-    }
     unless (eval { require Encode } ) {
 	print "1..0 # Skip: not Encode\n";
 	exit 0;
diff --git a/ext/PerlIO-encoding/t/nolooping.t b/ext/PerlIO-encoding/t/nolooping.t
index 5e262be7f4..b86fcf074b 100644
--- a/ext/PerlIO-encoding/t/nolooping.t
+++ b/ext/PerlIO-encoding/t/nolooping.t
@@ -8,12 +8,9 @@ BEGIN {
     }
 }
 
-use Config;
-
-use Test::More (ord("A") == 65 && $Config{useperlio})
+use Test::More ord("A") == 65
                ? (tests => 1)
-               : (skip_all => '(No PerlIO enabled;'
-                            . ' or is EBCDIC platform which doesnt have'
+               : (skip_all => 'EBCDIC platform which doesnt have'
                             . ' "use encoding" used by open ":locale")');
 BEGIN {
     $SIG{__WARN__} = sub { $warn .= $_[0] };
diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t
index c3279124f8..ed623b3aa9 100644
--- a/ext/PerlIO-scalar/t/scalar.t
+++ b/ext/PerlIO-scalar/t/scalar.t
@@ -1,10 +1,6 @@
 #!./perl
 
 BEGIN {
-    unless (find PerlIO::Layer 'perlio') {
-	print "1..0 # Skip: not perlio\n";
-	exit 0;
-    }
     require Config;
     if (($Config::Config{'extensions'} !~ m!\bPerlIO/scalar\b!) ){
         print "1..0 # Skip -- Perl configured without PerlIO::scalar module\n";
@@ -353,7 +349,7 @@ sub has_trailing_nul(\$) {
     return $trailing eq "\0";
 }
 SKIP: {
-    if ($Config::Config{'extensions'} !~ m!\bPerlIO/scalar\b!) {
+    if ($Config::Config{'extensions'} !~ m!\bB\b!) {
 	skip "no B", 4;
     }
     require B;
diff --git a/ext/PerlIO-via/t/thread.t b/ext/PerlIO-via/t/thread.t
index e4358f9c24..2de3a07b5b 100644
--- a/ext/PerlIO-via/t/thread.t
+++ b/ext/PerlIO-via/t/thread.t
@@ -1,9 +1,5 @@
 #!perl
 BEGIN {
-    unless (find PerlIO::Layer 'perlio') {
-	print "1..0 # Skip: not perlio\n";
-	exit 0;
-    }
     require Config;
     unless ($Config::Config{'usethreads'}) {
         print "1..0 # Skip -- need threads for this test\n";
diff --git a/ext/PerlIO-via/t/via.t b/ext/PerlIO-via/t/via.t
index 80577df140..fdeb8b3413 100644
--- a/ext/PerlIO-via/t/via.t
+++ b/ext/PerlIO-via/t/via.t
@@ -1,10 +1,6 @@
 #!./perl
 
 BEGIN {
-    unless (find PerlIO::Layer 'perlio') {
-	print "1..0 # Skip: not perlio\n";
-	exit 0;
-    }
     require Config;
     if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
         print "1..0 # Skip -- Perl configured without PerlIO::via module\n";