diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-30 05:57:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-30 05:57:04 +0000 |
| commit | dbb032c1141611de229b2d56c7ef8937f4cd1986 (patch) | |
| tree | 37e4c8c740769bc298bf2092323e46195cad2509 /ext/DynaLoader | |
| parent | 9e8c31cc7f224d58a5cb5107b5900855526a273c (diff) | |
| download | perl-dbb032c1141611de229b2d56c7ef8937f4cd1986.tar.gz | |
Make XSLoader.t more robust (and sdbm.t more verbose)
p4raw-id: //depot/perl@20945
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/t/XSLoader.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t index 1654a2ec03..6eb26af64b 100644 --- a/ext/DynaLoader/t/XSLoader.t +++ b/ext/DynaLoader/t/XSLoader.t @@ -2,7 +2,17 @@ BEGIN { chdir 't'; -# @INC = '../lib'; + @INC = '../lib'; + eval 'use Fcntl'; + if ($@ =~ /dynamic loading not available/) { + print "1..0 # Skip: no dynamic loading\n"; + exit; + } + require Config; import Config; + if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){ + print "1..0 # Skip: no SDBM_File\n"; + exit 0; + } } use Test; |