diff options
| -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 () |