diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/XSLoader.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/XSLoader.pm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/XSLoader.pm b/Master/tlpkg/tlperl/lib/XSLoader.pm index ed33bcbfa6c..9b20c93da41 100644 --- a/Master/tlpkg/tlperl/lib/XSLoader.pm +++ b/Master/tlpkg/tlperl/lib/XSLoader.pm @@ -2,13 +2,10 @@ package XSLoader; -$VERSION = "0.13"; +$VERSION = "0.16"; #use strict; -# enable debug/trace messages from DynaLoader perl code -# $dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug; - package DynaLoader; # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. @@ -23,9 +20,9 @@ sub load { my ($module, $modlibname) = caller(); if (@_) { - $module = $_[0]; + $module = $_[0]; } else { - $_[0] = $module; + $_[0] = $module; } # work with static linking too @@ -39,7 +36,7 @@ sub load { my $modpname = join('/',@modparts); my $c = @modparts; - $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename + $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename my $file = "$modlibname/auto/$modpname/$modfname.dll"; # print STDERR "XSLoader::load for $module ($file)\n" if $dl_debug; @@ -111,7 +108,7 @@ XSLoader - Dynamically load C libraries into Perl code =head1 VERSION -Version 0.13 +Version 0.15 =head1 SYNOPSIS @@ -322,6 +319,12 @@ may have much more overhead than running the same extensions after C<make install>. +=head1 KNOWN BUGS + +The new simpler way to call C<XSLoader::load()> with no arguments at all +does not work on Perl 5.8.4 and 5.8.5. + + =head1 BUGS Please report any bugs or feature requests via the perlbug(1) utility. @@ -344,7 +347,7 @@ Previous maintainer was Michael G Schwern <schwern@pobox.com>. =head1 COPYRIGHT & LICENSE -Copyright (C) 1990-2007 by Larry Wall and others. +Copyright (C) 1990-2011 by Larry Wall and others. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |