From 80a65c702acaa59cb295ad1d622ad632fd20932e Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 26 Sep 2008 09:10:02 +0000 Subject: [PATCH] Upgrade to XSLoader 0.10. p4raw-id: //depot/perl@34422 --- ext/DynaLoader/XSLoader_pm.PL | 5 +++-- ext/DynaLoader/t/XSLoader.t | 8 ++++---- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL index 036acfe..a258f6e 100644 --- a/ext/DynaLoader/XSLoader_pm.PL +++ b/ext/DynaLoader/XSLoader_pm.PL @@ -15,7 +15,7 @@ print OUT <<'EOT'; package XSLoader; -$VERSION = "0.09_1"; +$VERSION = "0.10"; #use strict; @@ -82,6 +82,7 @@ print OUT <<'EOT'; $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: $@\n" if $@; } @@ -167,7 +168,7 @@ XSLoader - Dynamically load C libraries into Perl code =head1 VERSION -Version 0.09 +Version 0.10 =head1 SYNOPSIS diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t index 2c7479e..bce7b0e 100644 --- a/ext/DynaLoader/t/XSLoader.t +++ b/ext/DynaLoader/t/XSLoader.t @@ -53,12 +53,12 @@ like( $@, '/^XSLoader::load\(\'Your::Module\', \$Your::Module::VERSION\)/', 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 -- 2.7.4