Get perl_fini() running on HP-UX again.
Gisle Aas [Wed, 15 Feb 2006 15:25:36 +0000 (15:25 +0000)]
It was effectively disabled by change 24667 since
__ux_version is only available under DCE threads
which isn't used when perl is built on HP-UX 11
and later.

p4raw-id: //depot/perl@27194

perl.c

diff --git a/perl.c b/perl.c
index 48757b9..7b715ae 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1321,7 +1321,7 @@ perl_free(pTHXx)
 /* provide destructors to clean up the thread key when libperl is unloaded */
 #ifndef WIN32 /* handled during DLL_PROCESS_DETACH in win32/perllib.c */
 
-#if defined(__hpux) && __ux_version > 1020 && !defined(__GNUC__)
+#if defined(__hpux) && !(defined(__ux_version) && __ux_version <= 1020) && !defined(__GNUC__)
 #pragma fini "perl_fini"
 #endif