diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/XSLoader_pm.PL | 5 | ||||
| -rw-r--r-- | 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 036acfeab4..a258f6ea51 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 2c7479eec8..bce7b0ec50 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 |