… | |
… | |
601 | set_option (Opt_iso14755); |
601 | set_option (Opt_iso14755); |
602 | set_option (Opt_iso14755_52); |
602 | set_option (Opt_iso14755_52); |
603 | set_option (Opt_buffered); |
603 | set_option (Opt_buffered); |
604 | } |
604 | } |
605 | |
605 | |
|
|
606 | #if ENABLE_PERL |
|
|
607 | static void |
|
|
608 | rxvt_perl_parse_resource (rxvt_term *term, const char *k, const char *v) |
|
|
609 | { |
|
|
610 | rxvt_perl.parse_resource (term, k, false, false, 0, v); |
|
|
611 | } |
|
|
612 | #endif |
|
|
613 | |
606 | /*----------------------------------------------------------------------*/ |
614 | /*----------------------------------------------------------------------*/ |
607 | const char ** |
615 | const char ** |
608 | rxvt_term::init_resources (int argc, const char *const *argv) |
616 | rxvt_term::init_resources (int argc, const char *const *argv) |
609 | { |
617 | { |
610 | int i; |
618 | int i; |
… | |
… | |
648 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
656 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
649 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
657 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
650 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
658 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
651 | { |
659 | { |
652 | rxvt_perl.init (this); |
660 | rxvt_perl.init (this); |
|
|
661 | enumerate_resources (rxvt_perl_parse_resource); |
653 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
662 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
654 | } |
663 | } |
655 | #endif |
664 | #endif |
656 | |
665 | |
657 | // must be called after initialising the perl interpreter as it |
666 | // must be called after initialising the perl interpreter as it |