This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get perl_fini() running on HP-UX again.
[perl5.git] / 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