diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/DynaLoader.pm | 23 |
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 ", |