… | |
… | |
379 | |
379 | |
380 | static PerlInterpreter *perl; |
380 | static PerlInterpreter *perl; |
381 | |
381 | |
382 | #if 0 /* we are not a library anymore, so doing this is just not worth it */ |
382 | #if 0 /* we are not a library anymore, so doing this is just not worth it */ |
383 | /*THINK/TODO: this has the side effect of, of course, not calling destructors. */ |
383 | /*THINK/TODO: this has the side effect of, of course, not calling destructors. */ |
384 | /* but therse are not guaranteed anyway... */ |
384 | /* but these are not guaranteed anyway... */ |
385 | rxvt_perl_interp::~rxvt_perl_interp () |
385 | rxvt_perl_interp::~rxvt_perl_interp () |
386 | { |
386 | { |
387 | if (perl) |
387 | if (perl) |
388 | { |
388 | { |
389 | localise_env set_environ (perl_environ); |
389 | localise_env set_environ (perl_environ); |