From d63f96ad2e9478db9dc064f050bffd4b0a8a3881 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 25 Nov 2020 23:05:19 +0100
Subject: do not call perl_destruct

Backport of 74dcd66efcfd778a0b3f70c187316367483c02e2.
---
 src/rxvtperl.h  | 2 ++
 src/rxvtperl.xs | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/src/rxvtperl.h b/src/rxvtperl.h
index 0e50e8f..d559009 100644
--- a/src/rxvtperl.h
+++ b/src/rxvtperl.h
@@ -51,7 +51,9 @@ struct rxvt_perl_interp
 {
   char **perl_environ;
 
+  #if 0 // see rxvtperl.xs
   ~rxvt_perl_interp ();
+  #endif
 
   void init ();
   void init (rxvt_term *term);
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 963a445..3018715 100644
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -372,6 +372,9 @@ struct rxvt_perl_interp rxvt_perl;
 
 static PerlInterpreter *perl;
 
+#if 0 /* we are not a library anymore, so doing this is just not worth it */
+/*THINK/TODO: this has the side effect of, of course, not calling destructors. */
+/* but therse are not guaranteed anyway... */
 rxvt_perl_interp::~rxvt_perl_interp ()
 {
   if (perl)
@@ -381,6 +384,7 @@ rxvt_perl_interp::~rxvt_perl_interp ()
       PERL_SYS_TERM ();
     }
 }
+#endif
 
 void
 rxvt_perl_interp::init ()
-- 
cgit v1.2.3