diff options
Diffstat (limited to 'ext/DynaLoader/t/XSLoader.t')
| -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'}; |