diff options
Diffstat (limited to 'ext/PerlIO')
-rw-r--r-- | ext/PerlIO/t/scalar.t | 5 | ||||
-rw-r--r-- | ext/PerlIO/t/via.t | 11 |
2 files changed, 13 insertions, 3 deletions
diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t index 01e12b047e..a4c479924b 100644 --- a/ext/PerlIO/t/scalar.t +++ b/ext/PerlIO/t/scalar.t @@ -7,6 +7,11 @@ BEGIN { print "1..0 # Skip: not perlio\n"; exit 0; } + require Config; + if (($Config::Config{'extensions'} !~ /\bPerlIO::scalar\b/) ){ + print "1..0 # Skip -- Perl configured without PerlIO::scalar module\n"; + exit 0; + } } $| = 1; diff --git a/ext/PerlIO/t/via.t b/ext/PerlIO/t/via.t index 124efbda68..0d819dfef3 100644 --- a/ext/PerlIO/t/via.t +++ b/ext/PerlIO/t/via.t @@ -1,8 +1,5 @@ #!./perl -use strict; -use warnings; - BEGIN { chdir 't' if -d 't'; @INC = '../lib'; @@ -10,8 +7,16 @@ BEGIN { print "1..0 # Skip: not perlio\n"; exit 0; } + require Config; + if (($Config::Config{'extensions'} !~ /\bPerlIO::via\b/) ){ + print "1..0 # Skip -- Perl configured without PerlIO::via module\n"; + exit 0; + } } +use strict; +use warnings; + my $tmp = "via$$"; use Test::More tests => 18; |