Change 34422 by [EMAIL PROTECTED] on 2008/09/26 09:10:02
Upgrade to XSLoader 0.10.
Affected files ...
... //depot/perl/ext/DynaLoader/XSLoader_pm.PL#18 edit
... //depot/perl/ext/DynaLoader/t/XSLoader.t#12 edit
Differences ...
==== //depot/perl/ext/DynaLoader/XSLoader_pm.PL#18 (text) ====
Index: perl/ext/DynaLoader/XSLoader_pm.PL
--- perl/ext/DynaLoader/XSLoader_pm.PL#17~34392~ 2008-09-22
01:30:40.000000000 -0700
+++ perl/ext/DynaLoader/XSLoader_pm.PL 2008-09-26 02:10:02.000000000 -0700
@@ -15,7 +15,7 @@
package XSLoader;
-$VERSION = "0.09_1";
+$VERSION = "0.10";
#use strict;
@@ -82,6 +82,7 @@
$bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
if (-s $bs) { # only read file if it's not empty
+# print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
eval { do $bs; };
warn "$bs: [EMAIL PROTECTED]" if $@;
}
@@ -167,7 +168,7 @@
=head1 VERSION
-Version 0.09
+Version 0.10
=head1 SYNOPSIS
==== //depot/perl/ext/DynaLoader/t/XSLoader.t#12 (text) ====
Index: perl/ext/DynaLoader/t/XSLoader.t
--- perl/ext/DynaLoader/t/XSLoader.t#11~34402~ 2008-09-22 19:59:24.000000000
-0700
+++ perl/ext/DynaLoader/t/XSLoader.t 2008-09-26 02:10:02.000000000 -0700
@@ -53,12 +53,12 @@
eval q{ package Thwack; XSLoader::load('Thwack'); };
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" );
+ 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" );
+ 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
End of Patch.
