From 89166d32b7b0b6c68db2041447f1be1c9ea5ca7a Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 12 May 2004 16:16:50 +0000 Subject: Make XSLoader update @DynaLoader::dl_shared_objects. p4raw-id: //depot/perl@22816 --- ext/DynaLoader/DynaLoader_pm.PL | 2 +- ext/DynaLoader/XSLoader_pm.PL | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'ext/DynaLoader') 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: -- cgit v1.2.1