… | |
… | |
523 | rs[Rs_perl_eval] = 0; |
523 | rs[Rs_perl_eval] = 0; |
524 | } |
524 | } |
525 | } |
525 | } |
526 | #endif |
526 | #endif |
527 | rxvt_perl.init (); |
527 | rxvt_perl.init (); |
|
|
528 | setlocale (LC_CTYPE, curlocale); // perl init destroys this info |
528 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
529 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
529 | } |
530 | } |
530 | #endif |
531 | #endif |
531 | |
532 | |
532 | create_windows (argc, argv); |
533 | create_windows (argc, argv); |
… | |
… | |
615 | sw_int (this, &sig_handlers::sig_term) |
616 | sw_int (this, &sig_handlers::sig_term) |
616 | { |
617 | { |
617 | } |
618 | } |
618 | } sig_handlers; |
619 | } sig_handlers; |
619 | |
620 | |
|
|
621 | char **rxvt_environ; // startup environment |
|
|
622 | |
620 | void |
623 | void |
621 | rxvt_init () |
624 | rxvt_init () |
622 | { |
625 | { |
|
|
626 | rxvt_environ = environ; |
|
|
627 | |
623 | /* |
628 | /* |
624 | * Save and then give up any super-user privileges |
629 | * Save and then give up any super-user privileges |
625 | * If we need privileges in any area then we must specifically request it. |
630 | * If we need privileges in any area then we must specifically request it. |
626 | * We should only need to be root in these cases: |
631 | * We should only need to be root in these cases: |
627 | * 1. write utmp entries on some systems |
632 | * 1. write utmp entries on some systems |