This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
HP-UX specific #pragma entered in #23890 is not supported
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 2 Jun 2005 07:52:09 +0000 (07:52 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
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