This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to XSLoader 0.10.
authorNicholas Clark <nick@ccl4.org>
Fri, 26 Sep 2008 09:10:02 +0000 (09:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 26 Sep 2008 09:10:02 +0000 (09:10 +0000)
p4raw-id: //depot/perl@34422

ext/DynaLoader/XSLoader_pm.PL
ext/DynaLoader/t/XSLoader.t

index 036acfe..a258f6e 100644 (file)
@@ -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
 
index 2c7479e..bce7b0e 100644 (file)
@@ -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