diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2008-09-22 09:36:57 -0400 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-09-23 02:59:24 +0000 |
| commit | 99df65aa94c2a00e350c2fda1b8e429c45d6ace7 (patch) | |
| tree | ebf18c5015a87792492956bbd048f31fde4bc1ef /ext | |
| parent | 44d268c35b0990eda9f6bc86f3f06731b6aec174 (diff) | |
| download | perl-99df65aa94c2a00e350c2fda1b8e429c45d6ace7.tar.gz | |
[perl #59208][PATCH 5.8.x] ext/DynaLoader/t/XSLoader.t assumes dynamic loading
Message-ID: <Pine.LNX.4.64.0809221334120.11020@fractal.phys.lafayette.edu>
p4raw-id: //depot/perl@34402
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/t/XSLoader.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t index 31a85cfd21..2c7479eec8 100644 --- a/ext/DynaLoader/t/XSLoader.t +++ b/ext/DynaLoader/t/XSLoader.t @@ -52,8 +52,14 @@ like( $@, '/^XSLoader::load\(\'Your::Module\', \$Your::Module::VERSION\)/', "calling XSLoader::load() with no argument" ); eval q{ package Thwack; XSLoader::load('Thwack'); }; -like( $@, q{/^Can't locate loadable object for module Thwack in @INC/}, - "calling XSLoader::load() under a package with no XS part" ); +if ($Config{usedl}) { + like( $@, q{/^Can't locate loadable object for module Thwack in @INC/}, + "calling XSLoader::load() under a package with no XS part" ); +} +else { + like( $@, q{/^Can't load module Thwack, dynamic loading not available in this perl./}, + "calling XSLoader::load() under a package with no XS part" ); +} # Now try to load well known XS modules my $extensions = $Config{'extensions'}; |