From: Jan Dubois <jand@activestate.com>
Date: Wed, 21 Oct 1998 00:55:51 +0000 (+0200)
Subject: Make _really_ sure Dynaloader.xs code is initialized only once
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb3913c763f2f2f367485054e71091c3a50d2e26;p=p5sagit%2Fp5-mst-13.2.git

Make _really_ sure Dynaloader.xs code is initialized only once

	Message-ID: <36380269.55370608@smtp1.ibm.net>

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

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 4c41559..cf7d708 100644
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -101,7 +101,8 @@ push(@dl_library_path, split(/:/, $ENV{LD_LIBRARY_PATH}))
 
 
 # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
-boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader);
+boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
+                                !defined(&dl_load_file);
 
 
 if ($dl_debug) {