| … | |
… | |
| 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 |
