From 54cfe9430e7706de0a1d08138e242eb6c92b15c8 Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Fri, 23 May 2003 18:37:09 +0100 Subject: for Configure -Dnoextensions=Encode Message-ID: <533D273D4014D411AB1D00062938C4D90404653D@hotel.npl.co.uk> p4raw-id: //depot/perl@19600 --- ext/PerlIO/t/encoding.t | 5 ++++- ext/PerlIO/t/fallback.t | 6 +++++- 2 files changed, 9 insertions(+), 2 deletions(-) (limited to 'ext/PerlIO') diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t index cf80af7160..06a0ba7e72 100644 --- a/ext/PerlIO/t/encoding.t +++ b/ext/PerlIO/t/encoding.t @@ -10,6 +10,10 @@ BEGIN { print "1..0 # Skip: not perlio\n"; exit 0; } + unless (eval { require Encode } ) { + print "1..0 # Skip: not Encode\n"; + exit 0; + } } print "1..14\n"; @@ -29,7 +33,6 @@ if (open(GRK, ">$grk")) { } { - use Encode; open(my $i,'<:encoding(iso-8859-7)',$grk); print "ok 1\n"; open(my $o,'>:utf8',$utf); 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; -- cgit v1.2.1