diff options
| author | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
| commit | c5add2ea5067382269ae6f19e345fda0b9a7bd21 (patch) | |
| tree | 02f512fda46d93079c9dc59c0d76f0e398150f83 /Master/tlpkg/tlperl/lib/XSLoader.pm | |
| parent | 6c35e87bdc5a3f64833dbbc42e7d42e683db9d5b (diff) | |
perl 5.16.2, compiled without optimization for Windows (from siep)
git-svn-id: svn://tug.org/texlive/trunk@28315 c570f23f-e606-0410-a88d-b1316a301751
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. |