Change 34402 by [EMAIL PROTECTED] on 2008/09/23 02:59:24
Subject: [perl #59208][PATCH 5.8.x] ext/DynaLoader/t/XSLoader.t
assumes dynamic loading
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Mon, 22 Sep 2008 13:36:57 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/DynaLoader/t/XSLoader.t#11 edit
Differences ...
==== //depot/perl/ext/DynaLoader/t/XSLoader.t#11 (text) ====
Index: perl/ext/DynaLoader/t/XSLoader.t
--- perl/ext/DynaLoader/t/XSLoader.t#10~34388~ 2008-09-21 10:18:15.000000000
-0700
+++ perl/ext/DynaLoader/t/XSLoader.t 2008-09-22 19:59:24.000000000 -0700
@@ -52,8 +52,14 @@
"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'};
End of Patch.
