X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDynaLoader%2Fdlutils.c;h=bb06fe4b20d02599eb51bbd31ea73051e487cd1a;hb=a8c08ecdc5ffec9869657a967edfe7b74a713a27;hp=7b67cf0a5d121030122ee90810fbebca8ae9495b;hpb=23d2500b2b45b1beddc8de6ccd7c60068286d061;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c
index 7b67cf0..bb06fe4 100644
--- a/ext/DynaLoader/dlutils.c
+++ b/ext/DynaLoader/dlutils.c
@@ -21,13 +21,13 @@ static HV *dl_loaded_files = Nullhv;	/* only needed on a few systems */
 
 
 #ifdef DEBUGGING
-static int dl_debug = 0;	/* value copied from $DynaLoader::dl_error */
+static int dl_debug = 0;	/* value copied from $DynaLoader::dl_debug */
 #define DLDEBUG(level,code)	if (dl_debug>=level) { code; }
 #else
 #define DLDEBUG(level,code)
 #endif
 
-
+#ifdef DL_UNLOAD_ALL_AT_EXIT
 /* Close all dlopen'd files */
 static void
 dl_unload_all_files(pTHXo_ void *unused)
@@ -51,7 +51,7 @@ dl_unload_all_files(pTHXo_ void *unused)
         }
     }
 }
-
+#endif
 
 static void
 dl_generic_private_init(pTHXo)	/* called by dl_*.xs dl_private_init() */