diff options
author | Graham Barr <gbarr@pobox.com> | 2007-08-26 12:12:46 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:48 -0600 |
commit | 5a30771f36520ce44455c0c8fb301b24f0d6f7df (patch) | |
tree | 22a11d29ec2b2597e9e6e706d0d30251f11cc74b | |
parent | 35d28d72ef1f1493ff1dbe949f7a6daeff8fab44 (diff) | |
download | perl-libnet-5a30771f36520ce44455c0c8fb301b24f0d6f7df.tar.gz |
Update to handle PERL_CORE
-rw-r--r-- | t/datasend.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/datasend.t b/t/datasend.t index 0786709..96b5b7c 100644 --- a/t/datasend.t +++ b/t/datasend.t @@ -1,6 +1,19 @@ #!./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; use IO::File; |