From: Gisle Aas <gisle@activestate.com>
Date: Wed, 15 Feb 2006 15:25:36 +0000 (+0000)
Subject: Get perl_fini() running on HP-UX again.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=826955bd39254b001a9d724fb030a4ad97b21351;p=p5sagit%2Fp5-mst-13.2.git

Get perl_fini() running on HP-UX again.
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
---

diff --git a/perl.c b/perl.c
index 48757b9..7b715ae 100644
--- 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