From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 2 Jun 2005 07:52:09 +0000 (+0000)
Subject: HP-UX specific #pragma entered in #23890 is not supported
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebf89b737691c72314d768f6a0746c119986eac8;p=p5sagit%2Fp5-mst-13.2.git

HP-UX specific #pragma entered in #23890 is not supported
on HP-UX 10.20 and older

p4raw-id: //depot/perl@24667
---

diff --git a/perl.c b/perl.c
index 063d963..02aab31 100644
--- a/perl.c
+++ b/perl.c
@@ -1004,7 +1004,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) && !defined(__GNUC__)
+#if defined(__hpux) && && __ux_version > 1020 && !defined(__GNUC__)
 #pragma fini "perl_fini"
 #endif