diff options
| author | tv <tv@krebsco.de> | 2020-11-25 23:05:19 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2020-11-25 23:05:19 +0100 |
| commit | d63f96ad2e9478db9dc064f050bffd4b0a8a3881 (patch) | |
| tree | 8bf01f30c827cdca7b31816fcbad93f944608178 | |
| parent | 15f3f94c19fb873e3687c07a3056921ade5266fa (diff) | |
do not call perl_destructno-perl_destruct
Backport of 74dcd66efcfd778a0b3f70c187316367483c02e2.
| -rw-r--r-- | src/rxvtperl.h | 2 | ||||
| -rw-r--r-- | src/rxvtperl.xs | 4 |
2 files changed, 6 insertions, 0 deletions
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 () |