summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/XSLoader.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-11-20 18:08:54 +0000
committerKarl Berry <karl@freefriends.org>2012-11-20 18:08:54 +0000
commitc5add2ea5067382269ae6f19e345fda0b9a7bd21 (patch)
tree02f512fda46d93079c9dc59c0d76f0e398150f83 /Master/tlpkg/tlperl/lib/XSLoader.pm
parent6c35e87bdc5a3f64833dbbc42e7d42e683db9d5b (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.pm21
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.