blob: c7a4cc927cee7a599be8116fc81130f3df7d5756 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--- rxvt-unicode/src/rxvtperl.xs 2020/01/20 09:35:12 1.246
+++ rxvt-unicode/src/rxvtperl.xs 2020/06/30 07:31:24 1.247
@@ -372,6 +372,9 @@
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 @@
PERL_SYS_TERM ();
}
}
+#endif
void
rxvt_perl_interp::init ()
--- rxvt-unicode/src/rxvtperl.h 2012/06/12 10:45:53 1.28
+++ rxvt-unicode/src/rxvtperl.h 2020/06/30 07:31:24 1.29
@@ -51,7 +51,9 @@
{
char **perl_environ;
+ #if 0 // see rxvtperl.xs
~rxvt_perl_interp ();
+ #endif
void init ();
void init (rxvt_term *term);
|