diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-12 16:16:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-12 16:16:50 +0000 |
| commit | 89166d32b7b0b6c68db2041447f1be1c9ea5ca7a (patch) | |
| tree | f0ca48202dfbd894e331c7c723e8f692ab938500 /ext | |
| parent | 00e89ad4bdb96e09c9ac232f26acc05942ca5f74 (diff) | |
| download | perl-89166d32b7b0b6c68db2041447f1be1c9ea5ca7a.tar.gz | |
Make XSLoader update @DynaLoader::dl_shared_objects.
p4raw-id: //depot/perl@22816
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 2 | ||||
| -rw-r--r-- | ext/DynaLoader/XSLoader_pm.PL | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index e4a1ba8618..aff74a45cf 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -80,12 +80,12 @@ $Is_MacOS = $^O eq 'MacOS'; my $Mac_FS; $Mac_FS = eval { require Mac::FileSpec::Unixish } if $Is_MacOS; -@dl_shared_objects = (); # shared objects for symbols we have @dl_require_symbols = (); # names of symbols we need @dl_resolve_using = (); # names of files to link with @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 diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL index e42660c64b..231a285416 100644 --- a/ext/DynaLoader/XSLoader_pm.PL +++ b/ext/DynaLoader/XSLoader_pm.PL @@ -115,6 +115,7 @@ print OUT <<'EOT'; my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file); # See comment block above + push(@DynaLoader::dl_shared_objects, $file); # record files loaded return &$xs(@_); retry: |