From 99df65aa94c2a00e350c2fda1b8e429c45d6ace7 Mon Sep 17 00:00:00 2001 From: Andy Dougherty Date: Mon, 22 Sep 2008 09:36:57 -0400 Subject: [perl #59208][PATCH 5.8.x] ext/DynaLoader/t/XSLoader.t assumes dynamic loading Message-ID: p4raw-id: //depot/perl@34402 --- ext/DynaLoader/t/XSLoader.t | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'ext') 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'}; -- cgit v1.2.1