HP-UX specific #pragma entered in #23890 is not supported
H.Merijn Brand [Thu, 2 Jun 2005 07:52:09 +0000 (07:52 +0000)]
on HP-UX 10.20 and older

p4raw-id: //depot/perl@24667

perl.c

diff --git a/perl.c b/perl.c
index 063d963..02aab31 100644 (file)
--- 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