summaryrefslogtreecommitdiff
path: root/ext/PerlIO/t/fallback.t
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2003-05-23 18:37:09 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2003-05-23 16:55:09 +0000
commit54cfe9430e7706de0a1d08138e242eb6c92b15c8 (patch)
tree328067797a4044efb2ea110095fca82fca9bd599 /ext/PerlIO/t/fallback.t
parent287c8091529321306208d03ea400ad532aea56f5 (diff)
downloadperl-54cfe9430e7706de0a1d08138e242eb6c92b15c8.tar.gz
for Configure -Dnoextensions=Encode
Message-ID: <533D273D4014D411AB1D00062938C4D90404653D@hotel.npl.co.uk> p4raw-id: //depot/perl@19600
Diffstat (limited to 'ext/PerlIO/t/fallback.t')
-rw-r--r--ext/PerlIO/t/fallback.t6
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index 049972e201..58420811a6 100644
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -10,9 +10,13 @@ BEGIN {
print "1..0 # Skip: EBCDIC\n";
exit 0;
}
+ unless( eval { require Encode } ) {
+ print "1..0 # Skip: No Encode\n";
+ exit 0;
+ }
plan (9);
+ import Encode qw(:fallback_all);
}
-use Encode qw(:fallback_all);
# $PerlIO::encoding = 0; # WARN_ON_ERR|PERLQQ;