Use shutdown hook to destruct shared interpreter on program termination

Author: Leont

dist/threads-shared/lib/threads/shared.pm

@@ -8,7 +8,7 @@ use Config;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.69'; # Please update the pod, too.
+our $VERSION = '1.70'; # Please update the pod, too.
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -196,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.68
+This document describes threads::shared version 1.70
 
 =head1 SYNOPSIS
 

dist/threads-shared/shared.xs

@@ -1284,6 +1284,21 @@ S_shared_signal_hook(pTHX) {
 }
 #endif
 
+#ifdef noshutdownhook
+
+static shutdown_proc_t old_shutdownhook;
+
+static void
+shared_shutdown() {
+    PerlInterpreter* my_perl;
+    SHARED_CONTEXT;
+    perl_destruct(PL_sharedsv_space);
+    perl_free(PL_sharedsv_space);
+    PL_sharedsv_space = NULL;
+    old_shutdownhook();
+}
+#endif
+
 /* Saves a space for keeping SVs wider than an interpreter. */
 
 static void
@@ -1299,6 +1314,12 @@ Perl_sharedsv_init(pTHX)
         LEAVE; /* This balances the ENTER at the end of perl_construct.  */
         PERL_SET_CONTEXT((aTHX = caller_perl));
         recursive_lock_init(aTHX_ &PL_sharedsv_lock);
+#ifdef noshutdownhook
+		OP_CHECK_MUTEX_LOCK;
+        old_shutdownhook = PL_shutdownhook;
+        PL_shutdownhook = &shared_shutdown;
+		OP_CHECK_MUTEX_UNLOCK;
+#endif
     }
     PL_lockhook = &Perl_sharedsv_locksv;
     PL_sharehook = &Perl_sharedsv_share;