Work in progress UNIX-side edit of win32 PerLIO layer

[p5sagit/p5-mst-13.2.git] / ext / DynaLoader / dlutils.c

diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c
index 9d88f5f..bb06fe4 100644 (file)
--- a/ext/DynaLoader/dlutils.c
+++ b/ext/DynaLoader/dlutils.c
@@ -27,7 +27,7 @@ static int dl_debug = 0;      /* value copied from $DynaLoader::dl_debug */
 #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() */