PERFORCE change 12820 for review

Change 12820 by pudge@pudge-mobile on 2001/11/02 21:35:15

	Fix up to work properly with multiplicity

Affected files ...

.... //depot/maint-5.6/macperl/ext/DynaLoader/dl_mac.xs#4 edit

Differences ...

==== //depot/maint-5.6/macperl/ext/DynaLoader/dl_mac.xs#4 (text) ====
Index: perl/ext/DynaLoader/dl_mac.xs
--- perl/ext/DynaLoader/dl_mac.xs.~1~	Fri Nov  2 14:45:06 2001
+++ perl/ext/DynaLoader/dl_mac.xs	Fri Nov  2 14:45:06 2001
@@ -34,9 +34,8 @@
 
 #define dl_connections	(dl_cxtx.x_connections)
 
-static void terminate(void)
+static void terminate(pTHX_ void *ptr)
 {
-    dTHX;
     dMY_CXT;
     int size = GetHandleSize((Handle) dl_connections) / sizeof(ConnectionID);
     HLock((Handle) dl_connections);
@@ -79,7 +78,7 @@
 	dMY_CXT;
     	if (!dl_connections) {
 	    dl_connections = (ConnectionID **)NewHandle(0);
-	    atexit(terminate);
+	    call_atexit(terminate, (void*)0);
     	}
         PtrAndHand((Ptr) &connID, (Handle) dl_connections, sizeof(ConnectionID));
     	RETVAL = connID;
End of Patch.