-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: 7e804cd0f4edd5f2f60f39d8baf4f872b6d63756:
path_to:
revision_to:

git.thebackupbox.net

rxvt-unicode-sixel

git://git.thebackupbox.net/rxvt-unicode-sixel

commit 7e804cd0f4edd5f2f60f39d8baf4f872b6d63756
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Tue Jun 30 07:31:24 2020 +0000

    do not call perl_destruct

diff --git a/Changes b/Changes

index c77a58f10b9e05a144e20ec9b4c576e117ee8a85..

index ..c0b53f2ef5d329e117a18e3949d8ad6a4976c005 100644

--- a/Changes
+++ b/Changes
@@ -45,6 +45,8 @@ TODO: confirm-paste should be the default
 TODO: xterm-osc does not autoload background
 TODO: think about daemon delaying urxvt client exit.
 TODO: libev update
+	- do not destruct perl on exit anymore: this might fail for a variety of
+          reasons, and takes unneccessary time.
 	- the old bg image resources are now provided by the background
 	  extension, and perl is thus required for bg image support. No
 	  configuration change is needed: urxvt autoloads the background
diff --git a/src/rxvtperl.h b/src/rxvtperl.h

index 0e50e8fb733b552238964001108f522e185286d1..

index ..d559009fb56a7ea6400f481fe750d431d154cf20 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 abfcfd47544d6e521e59e276d58278a473aab1dc..

index ..c22a1d33841c94fc7186c2b0d71bcad5bbe91dc9 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 ()

-----END OF PAGE-----

-- Response ended

-- Page fetched on Sun Jun 2 12:15:43 2024