… | |
… | |
382 | } |
382 | } |
383 | |
383 | |
384 | rxvt_pop_locale (); |
384 | rxvt_pop_locale (); |
385 | } |
385 | } |
386 | |
386 | |
387 | if (perl) |
387 | if (perl && !term->perl.self) |
388 | { |
388 | { |
389 | // runs outside of perls ENV |
389 | // runs outside of perls ENV |
390 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
390 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
391 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0); |
391 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0); |
392 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); |
392 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); |