From: Doug MacEachern <dougm@covalent.net>
Date: Mon, 18 Jun 2001 22:13:38 +0000 (-0700)
Subject: [patch] preserve @DynaLoader::dl_{librefs,modules}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bff25830104646e483e71521172ce1d2ee03aaaa;p=p5sagit%2Fp5-mst-13.2.git

[patch] preserve @DynaLoader::dl_{librefs,modules}
Message-ID: <Pine.LNX.4.21.0106182210570.22114-100000@mako.covalent.net>

p4raw-id: //depot/perl@10715
---

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 266c9d0..fa2ec0e 100644
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -80,8 +80,10 @@ $Is_MacOS  = $^O eq 'MacOS';
 @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
-@dl_librefs         = ();       # things we have loaded
-@dl_modules         = ();       # Modules we have loaded
+
+#XSLoader.pm may have added elements before we were required
+#@dl_librefs         = ();       # things we have loaded
+#@dl_modules         = ();       # Modules we have loaded
 
 # This is a fix to support DLD's unfortunate desire to relink -lc
 @dl_resolve_using = dl_findfile('-lc') if $dlsrc eq "dl_dld.xs";