diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-06-18 13:44:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-06-18 13:44:27 +0000 |
| commit | c29a2e1a7db1f2900677bea320406eef3cc36b3e (patch) | |
| tree | 5552eedcf365181d578de334bd046dca94f41073 /lib/PerlIO | |
| parent | 740dabb8e3624026adcaa7b5289cda916efa612a (diff) | |
| download | perl-c29a2e1a7db1f2900677bea320406eef3cc36b3e.tar.gz | |
Also needs skipping if PerlIO::via not built
p4raw-id: //depot/perl@22957
Diffstat (limited to 'lib/PerlIO')
| -rw-r--r-- | lib/PerlIO/via/t/QuotedPrint.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t index b379f66f5b..4774af3f47 100644 --- a/lib/PerlIO/via/t/QuotedPrint.t +++ b/lib/PerlIO/via/t/QuotedPrint.t @@ -7,6 +7,11 @@ BEGIN { # Magic Perl CORE pragma print "1..0 # Skip: PerlIO not used\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; + } if (ord("A") == 193) { print "1..0 # Skip: EBCDIC\n"; } |