From 5a30771f36520ce44455c0c8fb301b24f0d6f7df Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Sun, 26 Aug 2007 12:12:46 +0000 Subject: Update to handle PERL_CORE --- t/datasend.t | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/t/datasend.t b/t/datasend.t index 0786709..96b5b7c 100644 --- a/t/datasend.t +++ b/t/datasend.t @@ -1,5 +1,18 @@ #!./perl -w +BEGIN { + if ($ENV{PERL_CORE}) { + chdir 't' if -d 't'; + @INC = '../lib'; + } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } + if (ord('A') == 193 && !eval "require Convert::EBCDIC") { + print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; + } +} + BEGIN { package Foo; -- cgit v1.2.3-24-ge0c7