diff options
Diffstat (limited to 'gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL')
| -rw-r--r-- | gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL b/gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL index 3fe9f881099..aff74a45cf9 100644 --- a/gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL +++ b/gnu/usr.bin/perl/ext/DynaLoader/DynaLoader_pm.PL @@ -29,7 +29,7 @@ package DynaLoader; use vars qw($VERSION *AUTOLOAD); -$VERSION = '1.04'; # avoid typo warning +$VERSION = '1.05'; # avoid typo warning require AutoLoader; *AUTOLOAD = \&AutoLoader::AUTOLOAD; @@ -85,6 +85,7 @@ $Mac_FS = eval { require Mac::FileSpec::Unixish } if $Is_MacOS; @dl_library_path = (); # path to look for files #XSLoader.pm may have added elements before we were required +#@dl_shared_objects = (); # shared objects for symbols we have #@dl_librefs = (); # things we have loaded #@dl_modules = (); # Modules we have loaded @@ -339,6 +340,9 @@ print OUT <<'EOT'; my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file); # See comment block above + + push(@dl_shared_objects, $file); # record files loaded + &$xs(@args); } @@ -555,6 +559,7 @@ DynaLoader Interface Summary $dl_debug @dl_librefs @dl_modules + @dl_shared_objects Implemented in: bootstrap($modulename) Perl @filepaths = dl_findfile(@names) Perl @@ -630,6 +635,10 @@ the loaded files. An array of module (package) names that have been bootstrap'ed. +=item @dl_shared_objects + +An array of file names for the shared objects that were loaded. + =item dl_error() Syntax: |