summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm23
1 files changed, 18 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm
index a4d71b4a37..62369daf7c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm
@@ -1,6 +1,8 @@
# Generated from DynaLoader_pm.PL, this file is unique for every OS
+use strict;
+
package DynaLoader;
# And Gandalf said: 'Many folk like to know beforehand what is to
@@ -16,9 +18,17 @@ package DynaLoader;
# Tim.Bunce@ig.co.uk, August 1994
BEGIN {
- $VERSION = '1.50';
+ our $VERSION = '1.54';
}
+# Note: in almost any other piece of code "our" would have been a better
+# option than "use vars", but DynaLoader's bootstrap files need the
+# side effect of the variable being declared in any scope whose current
+# package is DynaLoader, not just the current lexical one.
+use vars qw(@dl_library_path @dl_resolve_using @dl_require_symbols
+ $dl_debug @dl_librefs @dl_modules @dl_shared_objects
+ $dl_dlext $dl_so $dlsrc @args $module @dirs $file $bscode);
+
use Config;
# enable debug/trace messages from DynaLoader perl code
@@ -40,8 +50,11 @@ sub dl_load_flags { 0x00 }
($dl_dlext, $dl_so, $dlsrc) = @Config::Config{qw(dlext so dlsrc)};
-
-$do_expand = 0;
+# Some systems need special handling to expand file specifications
+# (VMS support by Charles Bailey <bailey@HMIVAX.HUMGEN.UPENN.EDU>)
+# See dl_expandspec() for more details. Should be harmless but
+# inefficient to define on systems that don't need it.
+my $do_expand = 0;
@dl_require_symbols = (); # names of symbols we need
@dl_library_path = (); # path to look for files
@@ -96,6 +109,8 @@ sub croak { require Carp; Carp::croak(@_) }
sub bootstrap_inherit {
my $module = $_[0];
+
+ no strict qw/refs vars/;
local *isa = *{"$module\::ISA"};
local @isa = (@isa, 'DynaLoader');
# Cannot goto due to delocalization. Will report errors on a wrong line?
@@ -131,8 +146,6 @@ sub bootstrap {
# It may also edit @modparts if required.
$modfname = &mod2fname(\@modparts) if defined &mod2fname;
-
-
my $modpname = join('/',@modparts);
print STDERR "DynaLoader::bootstrap for $module ",